diff --git a/blk/381 b/blk/381 index 12d7936..c3ddc8d 100644 --- a/blk/381 +++ b/blk/381 @@ -4,7 +4,7 @@ : (print) C@+ ( a len ) 0 DO C@+ EMIT LOOP DROP ; : BS 8 EMIT ; : LF 10 EMIT ; : CR 13 EMIT ; : CRLF CR LF ; : SPC 32 EMIT ; -: NL 0x0a RAM+ @ ( NLPTR ) ?DUP IF EXECUTE ELSE CRLF THEN ; +: NL 0x0a RAM+ @ ( NLPTR ) EXECUTE ; : (uflw) LIT" stack underflow" ERR ; XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! : (oflw) LIT" stack overflow" ERR ; diff --git a/blk/396 b/blk/396 index 6f30215..dbf139e 100644 --- a/blk/396 +++ b/blk/396 @@ -5,7 +5,7 @@ 0 0x08 RAM+ ! ( 08 == C<* override ) 0 0x53 RAM+ ! ( 53 == (emit) override ) 0 0x55 RAM+ ! ( 55 == (key) override ) - 0 0x0a RAM+ ! ( NLPTR ) + ['] CRLF 0x0a RAM+ ! ( NLPTR ) ( 0c == C<* ) ['] (boot<) 0x0c RAM+ ! ['] C@ A@* ! ['] C! A!* ! diff --git a/cvm/forth.bin b/cvm/forth.bin index f06405d..7f5efef 100644 Binary files a/cvm/forth.bin and b/cvm/forth.bin differ