Name
reveal:header — ordinary primitive
Synopsis
EXTENSIONS
REVEAL
( -- )();
p4:"reveal";
Description
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 ;