Fix stack effect error in com-back
parent
4a2a214cb0
commit
346937a31a
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue