* REVEAL ( -- ) the FIG definition toggles the SMUDGE bit, and not all systems have a smudge bit - instead one should use REVEAL or HIDE : REVEAL LAST @ FLAGS@ SMUDGE-MASK INVERT AND LAST @ FLAGS! ; : REVEAL LAST @ CHAIN-INTO-CURRENT ;
REVEAL
( -- )
SMUDGE
HIDE
: REVEAL LAST @ FLAGS@ SMUDGE-MASK INVERT AND LAST @ FLAGS! ; : REVEAL LAST @ CHAIN-INTO-CURRENT ;
FORTH/EXTENSIONS header ordinary primitive