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

Walker fix

release
Slava Pestov 2007-10-09 01:31:41 -04:00
parent 886d14130d
commit 3f568f2a92
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/tools/walker/walker-tests.factor
View File

@ -65,4 +65,10 @@ IN: temporary
[ ] [ yield ] unit-test
[ t ] [ walker get-tool walker-active? ] unit-test
[ ] [ "walker" get com-continue ] unit-test
[ ] [ "walker" get com-continue ] unit-test
[ ] [ "walker" get com-continue ] unit-test
] with-scope

6
extra/ui/tools/walker/walker.factor
View File

@ -67,7 +67,11 @@ M: walker call-tool* ( continuation walker -- )
: com-continue ( walker -- )
#! Reset walker first, in case step-all ends up calling
#! the walker again.
dup walker-interpreter swap reset-walker step-all ;
dup walker-active? [
dup walker-interpreter swap reset-walker step-all
] [
drop
] if ;
: walker-help "ui-walker" help-window ;