izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix broken LIT"

Browse Source
This commit is contained in:
Virgil Dupras 2020-07-05 20:18:03 -04:00
parent 8bb9230f49
commit ebf47a2ab5
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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"
COMPILE (s) H@ 0 C, ," 0x2b ( (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.