collapseos/264 at 68dd800bd1a490a5a6655c9a73e058ac874edb0d - collapseos - GitLain

izaya/collapseos

Virgil Dupras 68dd800bd1 Remove LIT< in favor of LIT" exclusively

This duplicated feature existed because of bootstrapping issues
with LIT", but again, with careful threading, we can clean things
up.

We can now have a proper "Collapse OS" prompt :)

2020-09-19 18:51:29 -04:00

7 lines

145 B

Plaintext

Raw Blame History

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