aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/d-greater-zero.frt
blob: 36283202b18f9f297f0dd1f7f11366ed175e9cfd (plain)
1
2
3
4
5
6
7
8

\ #require d-less-zero.frt

: d0> ( d -- f)
  2dup or >r     \ not equal zero
  d0<  0= r> and \ and not less zero
  0= 0=          \ normalize to 0/-1 flag
;