alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make thrown value match standards.

Browse Source
This commit is contained in:
Brad Nelson
2023-01-22 12:16:57 -08:00
parent f82e423fb4
commit cfd70d6712
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
common/io.fs
View File

@ -100,8 +100,8 @@ create input-buffer input-limit allot
( Stack Guards ) ( Stack Guards )
sp0 'stack-cells @ 2 3 */ cells + constant sp-limit sp0 'stack-cells @ 2 3 */ cells + constant sp-limit
: ?stack sp@ sp0 < if ." STACK UNDERFLOW " -1 throw then : ?stack sp@ sp0 < if ." STACK UNDERFLOW " -4 throw then
sp-limit sp@ < if ." STACK OVERFLOW " -1 throw then ; sp-limit sp@ < if ." STACK OVERFLOW " -3 throw then ;
( REPL ) ( REPL )
: prompt ." ok" cr ; : prompt ." ok" cr ;