D>S
( d -- n )
n is the equivalent of d. An ambiguous condition exists if d lies outside the range of a signed single-cell number.
See:
Rationale:
There exist number representations, e.g., the sign-magnitude
representation, where reduction from double- to single-precision
cannot simply be done with DROP. This word,
equivalent to DROP on two's complement systems,
desensitizes application code to number representation and
facilitates portability.
Testing:
T{ 1234 0 D>S -> 1234 }T
T{ -1234 -1 D>S -> -1234 }T
T{ MAX-INT 0 D>S -> MAX-INT }T
T{ MIN-INT -1 D>S -> MIN-INT }T
T{ -1234 -1 D>S -> -1234 }T
T{ MAX-INT 0 D>S -> MAX-INT }T
T{ MIN-INT -1 D>S -> MIN-INT }T