aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/d-max.frt
blob: fcf979af7e1cdc86d75141ef2cd47851708035e4 (plain)
1
2
3

: dmax ( d1 d2 -- d ) \ double d-max
    2over 2over d< if  2swap then 2drop ;