From ba40af541f50d89ca9b67bb73383eb7f1ab8458d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 8 Nov 2016 14:14:15 -0800
Subject: [PATCH] progress-bars.models: rename <file-progress-display> to
 <progress-display>.

---
 extra/progress-bars/models/models.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/progress-bars/models/models.factor b/extra/progress-bars/models/models.factor
index 9ec5a3d31f..4290d2c440 100644
--- a/extra/progress-bars/models/models.factor
+++ b/extra/progress-bars/models/models.factor
@@ -13,6 +13,11 @@ SYMBOL: progress-bar
 : with-progress-bar ( quot -- )
     [ 0 <model> \ progress-bar ] dip with-variable ; inline
 
+: <progress-display> ( model n -- gadget )
+    [ '[ _ make-progress-bar ] <arrow> <label-control> ] keep
+    [ 0 ] dip make-progress-bar >>string
+    monospace-font >>font ;
+
 SYMBOL: file-size
 
 : update-file-progress ( -- n )
@@ -23,17 +28,12 @@ SYMBOL: file-size
         100 milliseconds sleep file-progress-loop
     ] unless ;
 
-: <file-progress-display> ( model n -- gadget )
-    [ '[ _ make-progress-bar ] <arrow> <label-control> ] keep
-    [ 0 ] dip make-progress-bar >>string
-    monospace-font >>font ;
-
 : with-file-reader-progress ( path encoding quot -- )
     '[
         _ dup file-info size>> file-size set
         _ _ [
             [ file-progress-loop ] "file-reader-progress" spawn drop
-            \ progress-bar get 40 <file-progress-display> gadget. yield
+            \ progress-bar get 40 <progress-display> gadget. yield
         ] prepose
         [ update-file-progress drop ] compose
         with-file-reader
-- 
2.34.1