collapseos/blk/382

: ,"
    BEGIN
        C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
    AGAIN ;
: LIT"
    34 , ( litWord ) H@ 0 C, ,"
    DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
xcomp: add XCOMPILE and X[COMPILE] This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer. 2020-05-12 21:08:18 -04:00			`: ,"`
Move a bunch of words from core to inner core That makes it easier to write drivers that can be xcompiled. 2020-05-08 20:55:50 -04:00			`BEGIN`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 07:58:55 -04:00			`C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,`
Move a bunch of words from core to inner core That makes it easier to write drivers that can be xcompiled. 2020-05-08 20:55:50 -04:00			`AGAIN ;`
wip 2020-05-24 20:50:26 -04:00			`: LIT"`
			`34 , ( litWord ) H@ 0 C, ,"`
wip 2020-05-25 20:28:30 -04:00			`DUP H@ -^ 1- ( a len ) SWAP C!`
wip 2020-05-24 20:50:26 -04:00			`; IMMEDIATE`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 07:58:55 -04:00			`: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE`
xcomp: add XCOMPILE and X[COMPILE] This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer. 2020-05-12 21:08:18 -04:00			`: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE`