Fix stack effect error in com-back

release
Slava Pestov 2007-10-28 01:19:19 -04:00
parent 4a2a214cb0
commit 346937a31a
1 changed files with 1 additions and 1 deletions

2
extra/ui/tools/walker/walker.factor Normal file → Executable file
View File

@ -39,7 +39,7 @@ TUPLE: walker model interpreter history ;
: com-back ( walker -- )
dup walker-history
dup empty? [ drop ] [ pop swap call-tool* ] if ;
dup empty? [ 2drop ] [ pop swap call-tool* ] if ;
: reset-walker ( walker -- )
<interpreter> over set-walker-interpreter