git-tool: Fix bug in fs monitors code

diff --git a/extra/git-tool/git-tool.factor b/extra/git-tool/git-tool.factor
index 7fa79a5b0e1024ea0f115c2e6597cb72ecccce5f..0ef7f88d3fb4ce90586fe1f657bd9243701dc14a 100644 (file)
--- a/extra/git-tool/git-tool.factor
+++ b/extra/git-tool/git-tool.factor
@@ -425,21 +425,6 @@ TUPLE: <git-status>
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-! :: git-tool ( REPO -- )
-
-!   <pile> 1 >>fill
-
-!     "Repository: " REPO [ current-directory get ] with-directory append
-!     <label>
-!     add-gadget
-
-!     REPO git-status <pile> 1 >>fill tuck refresh-status-pile  add-gadget
-!     REPO            <pile> 1 >>fill tuck refresh-remotes-pile add-gadget
-
-!   "Git" open-window ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
 :: git-tool ( REPO -- )
 
   <pile> 1 >>fill
@@ -452,16 +437,15 @@ TUPLE: <git-status>
            PILE   [ <pile> 1 >>fill ] |
 
       [
-        [let | MONITOR [ REPO t <monitor> ] |
-          [
-
+        [
+          [let | MONITOR [ REPO t <monitor> ] |
             [ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ]
             loop
           ]
-          in-thread
         ]
+        with-monitors
       ]
-      with-monitors
+      in-thread
            
       STATUS PILE refresh-status-pile