izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-11 07:58:06 +11:00
Code Issues Releases Wiki Activity

Fix LIT"

Browse Source 
I've mistakenly broken it in previous commit.
This commit is contained in:
Virgil Dupras 2020-09-19 14:28:10 -04:00
parent eefbf66e95
commit 0b11979b5e
4 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/264
View File

@ -1,3 +1,7 @@
: XAGAIN LIT< (br) XFIND , H@ - C, ; : XAGAIN LIT< (br) XFIND , H@ - C, ;
: XUNTIL LIT< (?br) XFIND , H@ - C, ; : XUNTIL LIT< (?br) XFIND , H@ - C, ;
: XLIT< LIT< (s) XFIND , WORD DUP C@ 1+ MOVE, ; : XLIT< LIT< (s) XFIND , WORD DUP C@ 1+ MOVE, ;
: XLIT"
LIT< (s) XFIND , H@ 0 C, ,"
DUP H@ -^ 1- SWAP C!
;

2
blk/270
View File

@ -5,7 +5,7 @@
: DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE : DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE
: IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE : IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE
: AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE : AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE
: LIT< XLIT< ; IMMEDIATE : LIT< XLIT< ; IMMEDIATE : LIT" XLIT" ; IMMEDIATE
: IMMEDIATE XIMM ; : IMMEDIATE XIMM ;
: (entry) (xentry) ; : (entry) (xentry) ;
: CREATE XCREATE ; : CREATE XCREATE ;

2
blk/382
View File

@ -3,7 +3,7 @@
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C, C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
AGAIN ; AGAIN ;
: LIT" : LIT"
0x2b ( (s) ) , H@ 0 C, ," COMPILE (s) H@ 0 C, ,"
DUP H@ -^ 1- ( a len ) SWAP C! DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE ; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE

BIN
cvm/forth.bin
View File

Binary file not shown.