1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 12:18:05 +11:00
collapseos/blk/435
2020-04-25 21:54:07 -04:00

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 ! ;