Remove an indirection in ERR
This commit is contained in:
parent
705d68deec
commit
f027f13042
1
blk/354
1
blk/354
@ -1,5 +1,4 @@
|
||||
: ABORT (resSP) QUIT ;
|
||||
: ERR LIT" (print)" FIND IF EXECUTE THEN ABORT ;
|
||||
: = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
|
||||
: 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
|
||||
: >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ;
|
||||
|
1
blk/356
1
blk/356
@ -3,6 +3,7 @@ SYSVARS 0x53 + :** EMIT
|
||||
: BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ;
|
||||
: CRLF CR LF ; : SPC 32 EMIT ;
|
||||
SYSVARS 0x0a + :** NL
|
||||
: ERR (print) ABORT ;
|
||||
: (uflw) LIT" stack underflow" ERR ;
|
||||
XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + !
|
||||
: (oflw) LIT" stack overflow" ERR ;
|
||||
|
BIN
cvm/forth.bin
BIN
cvm/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user