collapseos/blk/265

: X:
    (xentry) [ 0x0e LITN ] C,
    BEGIN WORD
    XCURRENT @ SWAP ( xcur w ) _find ( a f )
    IF   ( a )
        DUP IMMED? IF ABORT THEN
        _xapply ,
    ELSE ( w )
        0x02 RAM+ @ SWAP ( cur w ) _find ( a f )
        IF DUP IMMED? NOT IF ABORT THEN EXECUTE
        ELSE (parse) LITN THEN
    THEN
    AGAIN
;
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`: X:`
			`(xentry) [ 0x0e LITN ] C,`
			`BEGIN WORD`
			`XCURRENT @ SWAP ( xcur w ) _find ( a f )`
			`IF ( a )`
			`DUP IMMED? IF ABORT THEN`
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			`_xapply ,`
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`ELSE ( w )`
			`0x02 RAM+ @ SWAP ( cur w ) _find ( a f )`
			`IF DUP IMMED? NOT IF ABORT THEN EXECUTE`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-03 11:21:47 +10:00			`ELSE (parse) LITN THEN`
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`THEN`
			`AGAIN`
			`;`