0b11979b5e
I've mistakenly broken it in previous commit.
8 lines
190 B
Plaintext
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!
|
|
;
|