sign:core — ordinary primitive
FORTH
SIGN ( a -- )();p4:"sign";
SIGN ( a -- )(
)
put the sign of the value into the hold-space, this is the forth-style output formatting, see HOLD
dpANS .6.1.2210 - standard forth word