* NEGATE ( value -- value' ) return the arithmetic negative of the (signed) cell simulate: : NEGATE -1 * ;
NEGATE
( value -- value' )
simulate: : NEGATE -1 * ;
FORTH/ANS core (dpANS.6.1.1910) ordinary primitive