mirror of
https://github.com/nineties/planckforth
synced 2025-01-14 08:01:27 +01:00
minor fix
This commit is contained in:
parent
6ea40bd3dc
commit
410a5c2ed0
1 changed files with 4 additions and 9 deletions
13
bootstrap.fs
13
bootstrap.fs
|
@ -1575,13 +1575,10 @@ stdin_ push-inputstream
|
|||
-56 s" Bye" def-error QUIT
|
||||
|
||||
: interpret
|
||||
word case \ read name from input
|
||||
word \ read name from input
|
||||
|
||||
\ EOF check
|
||||
success of ( ok ) endof
|
||||
UNEXPECTED-EOF-ERROR of QUIT throw endof
|
||||
throw ( rethrow other errors )
|
||||
endcase
|
||||
\ EOF at this point is not an error
|
||||
UNEXPECTED-EOF-ERROR = if QUIT throw then
|
||||
|
||||
dup word-buffer strcpy \ save input
|
||||
dup find \ lookup dictionary
|
||||
|
@ -1640,9 +1637,7 @@ stdin_ push-inputstream
|
|||
: switch-to-4th-stage
|
||||
rdrop \ drop 3rd stage
|
||||
|
||||
['] interpret-loop catch
|
||||
|
||||
bye
|
||||
['] interpret-loop catch bye
|
||||
;
|
||||
|
||||
switch-to-4th-stage
|
||||
|
|
Loading…
Reference in a new issue