collapseos/blk/399

: IF ( -- a | a: br cell addr )
    COMPILE (?br) H@ 1 ALLOT ( br cell allot )
; IMMEDIATE
: THEN ( a -- | a: br cell addr )
    DUP H@ -^ _bchk SWAP ( a-H a ) C!
; IMMEDIATE
: ELSE ( a1 -- a2 | a1: IF cell a2: ELSE cell )
    COMPILE (br)
    1 ALLOT
    [COMPILE] THEN
    H@ 1- ( push a. 1- for allot offset )
; IMMEDIATE
: LIT"
    COMPILE (s) H@ 0 C, ,"
    DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
Add alias and switch word types I'm pretty happy about how lightweight the implementation turns out to be. 2020-10-29 06:02:06 +11:00			`: IF ( -- a \| a: br cell addr )`
			`COMPILE (?br) H@ 1 ALLOT ( br cell allot )`
			`; IMMEDIATE`
			`: THEN ( a -- \| a: br cell addr )`
			`DUP H@ -^ _bchk SWAP ( a-H a ) C!`
			`; IMMEDIATE`
			`: ELSE ( a1 -- a2 \| a1: IF cell a2: ELSE cell )`
			`COMPILE (br)`
			`1 ALLOT`
			`[COMPILE] THEN`
			`H@ 1- ( push a. 1- for allot offset )`
			`; IMMEDIATE`
			`: LIT"`
			`COMPILE (s) H@ 0 C, ,"`
			`DUP H@ -^ 1- ( a len ) SWAP C!`
			`; IMMEDIATE`