Fix stack effect error in com-back
parent
4a2a214cb0
commit
346937a31a
|
@ -39,7 +39,7 @@ TUPLE: walker model interpreter history ;
|
||||||
|
|
||||||
: com-back ( walker -- )
|
: com-back ( walker -- )
|
||||||
dup walker-history
|
dup walker-history
|
||||||
dup empty? [ drop ] [ pop swap call-tool* ] if ;
|
dup empty? [ 2drop ] [ pop swap call-tool* ] if ;
|
||||||
|
|
||||||
: reset-walker ( walker -- )
|
: reset-walker ( walker -- )
|
||||||
<interpreter> over set-walker-interpreter
|
<interpreter> over set-walker-interpreter
|
||||||
|
|
Loading…
Reference in New Issue