steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

git-tool: Fix bug in fs monitors code

db4
Eduardo Cavazos 2009-01-14 02:31:39 -06:00
parent fb9eb88623
commit e9888fdf63
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
extra/git-tool/git-tool.factor
View File

@ -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