collapseos/blk/265

: X:
    (xentry) 1 ( compiled ) C,
    BEGIN
    WORD DUP LIT" ;" S= IF DROP 0x0b , EXIT THEN
    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-21 20:30:14 -04: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-17 21:41:01 -04:00			`(xentry) 1 ( compiled ) C,`
Remove ";" word The ":" now takes care of scanning for ";". Conceptually, having ";" as an immediate word is slightly simpler than the approach in this commit, but when bootstrapping is involved, this simpler approach gets murkier. Moreover, it got even murkier-er when trying to de-stabilize EXIT, so here we are. 2020-09-19 20:19:23 -04:00			`BEGIN`
			`WORD DUP LIT" ;" S= IF DROP 0x0b , EXIT THEN`
Move xcomp to blocks 2020-04-21 20:30:14 -04:00			`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-12 21:08:18 -04:00			`_xapply ,`
Move xcomp to blocks 2020-04-21 20:30:14 -04:00			`ELSE ( w )`
			`0x02 RAM+ @ SWAP ( cur w ) _find ( a f )`
			`IF DUP IMMED? NOT IF ABORT THEN EXECUTE`
De-stabilize (n) 2020-09-19 19:44:15 -04:00			`ELSE (parse) XLITN THEN`
Move xcomp to blocks 2020-04-21 20:30:14 -04:00			`THEN`
			`AGAIN`
			`;`