From e9888fdf63363f44f5b1a5a8f76449087d04d5f5 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 14 Jan 2009 02:31:39 -0600
Subject: [PATCH] git-tool: Fix bug in fs monitors code

---
 extra/git-tool/git-tool.factor | 24 ++++--------------------
 1 file changed, 4 insertions(+), 20 deletions(-)

diff --git a/extra/git-tool/git-tool.factor b/extra/git-tool/git-tool.factor
index 7fa79a5b0e..0ef7f88d3f 100644
--- 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
       
-- 
2.34.1