negate:core — ordinary primitive
FORTH
NEGATE ( value -- value' )();p4:"negate";
NEGATE ( value -- value' )(
)
return the arithmetic negative of the (signed) cell
simulate: : NEGATE -1 * ;
dpANS .6.1.1910 - standard forth word