|
123456789101112131415 |
- : [entry]
- HERE @ ( w h )
- SWAP SCPY ( h )
- ( Adjust HERE -1 because SCPY copies the null )
- HERE @ 1- ( h h' )
- DUP HERE ! ( h h' )
- SWAP - ( sz )
- ( write prev value )
- HERE @ CURRENT @ - ,
- ( write size )
- C,
- HERE @ CURRENT !
- ;
-
- : (entry) WORD [entry] ;
|