( D>                                compare two double numbers )

need d<
: d>                              ( d d --- f )
  dswap                           ( swap the two numbers)
  d<                              ( compare them)
;