From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 14 Jan 2009 08:53:12 +0000 (-0600)
Subject: git-tool: Remove old code
X-Git-Tag: 0.94~2200^2~1^2~4
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=258438c930133174f599fc0d5fcbfcd33213e575

git-tool: Remove old code
---

diff --git a/extra/git-tool/git-tool.factor b/extra/git-tool/git-tool.factor
index 314bddb19a..f8f35b5423 100644
--- 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 ;