collapseos/blk/265

: X:
    (xentry) 1 ( compiled ) 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) XLITN THEN
    THEN
    AGAIN
;
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`: X:`
Make word routines into word types Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now... 2020-06-18 11:41:01 +10:00			`(xentry) 1 ( compiled ) C,`
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`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`
De-stabilize (n) 2020-09-20 09:44:15 +10:00			`ELSE (parse) XLITN THEN`
Move xcomp to blocks 2020-04-22 10:30:14 +10:00			`THEN`
			`AGAIN`
			`;`