collapseos/blk/382

: ,"
    BEGIN
        C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
    AGAIN ;
: LIT" 34 , ( litWord ) ," 0 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-13 11:08:18 +10:00			`: ,"`
Move a bunch of words from core to inner core That makes it easier to write drivers that can be xcompiled. 2020-05-09 10:55:50 +10:00			`BEGIN`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 21:58:55 +10: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-09 10:55:50 +10:00			`AGAIN ;`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 21:58:55 +10:00			`: LIT" 34 , ( litWord ) ," 0 C, ; IMMEDIATE`
			`: ." [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-13 11:08:18 +10:00			`: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE`