collapseos/blk/368

: +! TUCK @ + SWAP ! ;
: [entry] ( w -- )
    H@ SWAP
    BEGIN C@+ ( w+1 c ) ?DUP IF C, 0 ELSE 1 THEN UNTIL DROP
    H@ SWAP - ( sz )
    ( write prev value )
    H@ CURRENT @ - ,
    C, ( write size )
    H@ CURRENT !
;

: (entry) WORD [entry] ;
Inline SCPY I'm planning a string reform and it's standing in the way. 2020-05-24 14:19:25 -04:00			`: +! TUCK @ + SWAP ! ;`
core: define H@ a bit sooner 2020-05-15 22:59:38 -04:00			`: [entry] ( w -- )`
Inline SCPY I'm planning a string reform and it's standing in the way. 2020-05-24 14:19:25 -04:00			`H@ SWAP`
			`BEGIN C@+ ( w+1 c ) ?DUP IF C, 0 ELSE 1 THEN UNTIL DROP`
core: define H@ a bit sooner 2020-05-15 22:59:38 -04:00			`H@ 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 )`
core: define H@ a bit sooner 2020-05-15 22:59:38 -04:00			`H@ 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 )`
core: define H@ a bit sooner 2020-05-15 22:59:38 -04:00			`H@ CURRENT !`
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) WORD [entry] ;`