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 -- ) :: git-tool ( REPO -- )
<pile> 1 >>fill <pile> 1 >>fill
@ -452,16 +437,15 @@ TUPLE: <git-status>
PILE [ <pile> 1 >>fill ] | PILE [ <pile> 1 >>fill ] |
[ [
[let | MONITOR [ REPO t <monitor> ] | [
[ [let | MONITOR [ REPO t <monitor> ] |
[ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ] [ MONITOR next-change 2drop STATUS PILE refresh-status-pile t ]
loop loop
] ]
in-thread
] ]
with-monitors
] ]
with-monitors in-thread
STATUS PILE refresh-status-pile STATUS PILE refresh-status-pile