collapseos/blk/434

: LOAD+ BLK> @ + LOAD ;
( b1 b2 -- )
: LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;
: LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;
( Now we have "as late as possible" stuff )
: DO COMPILE 2>R H@ ; IMMEDIATE
: LOOP COMPILE (loop) H@ - , ; IMMEDIATE
( LEAVE is implemented in low xcomp )
blk: Add LOAD+ and LOADR+ And use them in all places they make sense. 2020-05-05 11:43:48 +10:00			`: LOAD+ BLK> @ + LOAD ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-03 11:47:32 +10:00			`( b1 b2 -- )`
Add word NL 2020-05-04 22:10:18 +10:00			`: LOADR 1+ SWAP DO I DUP . NL LOAD LOOP ;`
blk: Add LOAD+ and LOADR+ And use them in all places they make sense. 2020-05-05 11:43:48 +10:00			`: LOADR+ BLK> @ + SWAP BLK> @ + SWAP LOADR ;`
Move a bunch of words from XPACKed core to xcomp core 2020-05-14 22:18:53 +10:00			`( Now we have "as late as possible" stuff )`
			`: DO COMPILE 2>R H@ ; IMMEDIATE`
			`: LOOP COMPILE (loop) H@ - , ; IMMEDIATE`
			`( LEAVE is implemented in low xcomp )`