collapseos/264 at 0b11979b5e3aba14b3059efb978ca932e37e96e4 - collapseos - SKS Gitea

izaya/collapseos

mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 16:08:07 +11:00

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

Raw Blame History

 : 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!
 ;