Walker fix
parent
886d14130d
commit
3f568f2a92
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue