collapseos/blk/408

: [entry]
    HERE @        ( w h )
    SWAP SCPY     ( h )
    HERE @ SWAP - ( sz )
    ( write prev value )
    HERE @ CURRENT @ - ,
    C, ( write size )
    HERE @ CURRENT !
;

: (entry) WORD [entry] ;
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-02 21:21:47 -04:00			`: [entry]`
SCPY: don't copy the NULL This makes [entry] much simpler. Also, remove unused LITS word. 2020-05-12 07:36:20 -04:00			`HERE @ ( w h )`
			`SWAP SCPY ( h )`
			`HERE @ SWAP - ( sz )`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-02 21:21:47 -04:00			`( write prev value )`
			`HERE @ CURRENT @ - ,`
SCPY: don't copy the NULL This makes [entry] much simpler. Also, remove unused LITS word. 2020-05-12 07:36:20 -04:00			`C, ( write size )`
Move all parsing words to Inner core This allows us to get rid of the (parse*) indirection. 2020-05-02 21:21:47 -04:00			`HERE @ CURRENT !`
			`;`

			`: (entry) WORD [entry] ;`