minor fix

This commit is contained in:
Koichi Nakamura 2021-01-10 10:46:54 +09:00
parent 7b57c7f864
commit 2701d48bd9

View file

@ -1331,7 +1331,7 @@ create word-buffer s" 64" >number drop cell+ allot drop
;
:noname
rdrop \ drop 2nd stage
rp0 rp! \ drop 2nd stage
begin
['] interpret catch
?dup if
@ -1902,7 +1902,7 @@ stdin_ push-inputstream
;
:noname
rdrop \ drop 3rd stage
rp0 rp! \ drop 3rd stage
['] interpret-loop catch bye
; execute