diff --git a/blk/381 b/blk/356 similarity index 88% rename from blk/381 rename to blk/356 index 12b65f1..38a6c6e 100644 --- a/blk/381 +++ b/blk/356 @@ -7,3 +7,4 @@ SYSVARS 0x0a + :** NL XCURRENT @ _xapply ORG @ 0x06 ( stable ABI uflw ) + ! : (oflw) LIT" stack overflow" ERR ; XCURRENT @ _xapply ORG @ 0x13 ( stable ABI oflw ) + ! +: (wnf) (print) LIT" word not found" ERR ; diff --git a/blk/363 b/blk/363 index a5da7b5..2a1e2d3 100644 --- a/blk/363 +++ b/blk/363 @@ -1,5 +1,3 @@ -: (wnf) LIT" (print)" FIND DROP EXECUTE - LIT" word not found" ERR ; : (parse) ( a -- n ) _pc IF EXIT THEN _ph IF EXIT THEN diff --git a/blk/364 b/blk/364 index 32db8f0..7369907 100644 --- a/blk/364 +++ b/blk/364 @@ -5,3 +5,7 @@ SYSVARS 0x0c + :** C<* ?DUP NOT IF C<* ELSE EXECUTE THEN ; : , H@ ! H@ 2+ HERE ! ; : C, H@ C! H@ 1+ HERE ! ; +: ," + BEGIN + C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C, + AGAIN ; diff --git a/blk/382 b/blk/382 deleted file mode 100644 index 8bc9584..0000000 --- a/blk/382 +++ /dev/null @@ -1,4 +0,0 @@ -: ," - BEGIN - C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C, - AGAIN ; diff --git a/cvm/forth.bin b/cvm/forth.bin index c69304a..a9e9fe2 100644 Binary files a/cvm/forth.bin and b/cvm/forth.bin differ