collapseos/blk/264
Virgil Dupras 0b11979b5e Fix LIT"
I've mistakenly broken it in previous commit.
2020-09-19 14:28:10 -04:00

8 lines
190 B
Plaintext

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