From 258438c930133174f599fc0d5fcbfcd33213e575 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 14 Jan 2009 02:53:12 -0600
Subject: [PATCH] git-tool: Remove old code
---
extra/git-tool/git-tool.factor | 34 ----------------------------------
1 file changed, 34 deletions(-)
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 ;