* 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
>REVEAL
HIDE
: REVEAL LAST @ FLAGS@ SMUDGE-MASK INVERT AND LAST @ FLAGS! ; : REVEAL LAST @ CHAIN-INTO-CURRENT ;
header ordinary primitive