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

This commit is contained in:
Virgil Dupras 2020-04-24 10:59:59 -04:00
parent f19a5e1f71
commit a699c93509

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" ;