* NEGATE ( value -- value' ) return the arithmetic negative of the (signed) cell simulate: : NEGATE -1 * ;
NEGATE
( value -- value' )
simulate: : NEGATE -1 * ;
core ordinary primitive