( DMIN                    leave the less of two double numbers )

need d>
: dmin                            ( d1 d2 --- d3 )
  dover dover                     ( copy d1 and d2)
  d>                              ( compare the two numbers)
  if dswap endif                  ( swap if d1 is greater)
  ddrop                           ( drop the greater of the two)
;