mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 06:58:05 +11:00
17 lines
382 B
Plaintext
17 lines
382 B
Plaintext
|
: 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 ! ;
|