izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Print word that wasn't found on "word not found" error

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-24 10:59:59 -04:00
parent f19a5e1f71
commit a699c93509
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
forth/print.fs
View File

@ -26,10 +26,11 @@
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE : ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
: (uflw) ABORT" stack underflow" ; : (uflw) ABORT" stack underflow" ;
: (wnf) ABORT" word not found" ;
: BS 8 EMIT ; : BS 8 EMIT ;
: LF 10 EMIT ; : LF 10 EMIT ;
: CR 13 EMIT ; : CR 13 EMIT ;
: CRLF CR LF ; : CRLF CR LF ;
: SPC 32 EMIT ; : SPC 32 EMIT ;
: (wnf) (print) SPC ABORT" word not found" ;