aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/double/d-min.frt
blob: beca796cab0621c7b6e0b4af715f3d75a879f0cb (plain)
1
2
: dmin ( d1 d2 -- d ) \ double d-min
    2over 2over d> if  2swap then 2drop ;