git-tool: Remove old code

diff --git a/extra/git-tool/git-tool.factor b/extra/git-tool/git-tool.factor
index 314bddb19a9eb7ce8144f6d940c06ad86afa225b..f8f35b5423da88818e59a28ba7a7c7327eed5a15 100644 (file)
--- a/extra/git-tool/git-tool.factor
+++ b/extra/git-tool/git-tool.factor
@@ -425,39 +425,6 @@ TUPLE: <git-status>
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-! :: git-tool ( REPO -- )
-
-!   <pile> 1 >>fill
-
-!     "Repository: " REPO [ current-directory get ] with-directory append
-!     <label>
-!     add-gadget
-
-!     [let | STATUS [ REPO git-status ]
-!            PILE   [ <pile> 1 >>fill ] |
-
-!       [
-!         [
-!           [let | MONITOR [ REPO t <monitor> ] |
-!             [ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ]
-!             loop
-!           ]
-!         ]
-!         with-monitors
-!       ]
-!       in-thread
-           
-!       STATUS PILE refresh-status-pile
-      
-!       PILE 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
@@ -491,7 +458,6 @@ TUPLE: <git-status>
       
       PILE 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 ;