|
12345678910111213141516 |
- : WORD(
- DUP 1- C@ ( name len field )
- 127 AND ( 0x7f. remove IMMEDIATE flag )
- 3 + ( fixed header len )
- -
- ;
- : FORGET
- ' DUP ( w w )
- ( HERE must be at the end of prev's word, that is, at the
- beginning of w. )
- WORD( HERE ! ( w )
- PREV CURRENT !
- ;
- : EMPTY
- LIT< _sys (find) NOT IF ABORT THEN
- DUP HERE ! CURRENT ! ;
|