collapseos/blk/264

: XDO LIT" 2>R" XFIND , H@ ;
: XLOOP LIT" (loop)" XFIND , H@ - C, ;
: XIF LIT" (?br)" XFIND , H@ 1 ALLOT ;
: XELSE LIT" (br)" XFIND , 1 ALLOT [COMPILE] THEN H@ 1- ;
: XAGAIN LIT" (br)" XFIND , H@ - C, ;
: XUNTIL LIT" (?br)" XFIND , H@ - C, ;
: XLIT"
    LIT" (s)" XFIND , H@ 0 C, ,"
    DUP H@ -^ 1- SWAP C!
;
De-stabilize (n) 2020-09-20 09:44:15 +10:00			`: XDO LIT" 2>R" XFIND , H@ ;`
			`: XLOOP LIT" (loop)" XFIND , H@ - C, ;`
			`: XIF LIT" (?br)" XFIND , H@ 1 ALLOT ;`
			`: XELSE LIT" (br)" XFIND , 1 ALLOT [COMPILE] THEN H@ 1- ;`
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-20 08:51:29 +10:00			`: XAGAIN LIT" (br)" XFIND , H@ - C, ;`
			`: XUNTIL LIT" (?br)" XFIND , H@ - C, ;`
Fix LIT" I've mistakenly broken it in previous commit. 2020-09-20 04:28:10 +10:00			`: XLIT"`
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-20 08:51:29 +10:00			`LIT" (s)" XFIND , H@ 0 C, ,"`
Fix LIT" I've mistakenly broken it in previous commit. 2020-09-20 04:28:10 +10:00			`DUP H@ -^ 1- SWAP C!`
			`;`