( D=                                compare two double numbers )

: d=                              ( d d --- f )
  d-                              ( substract the two numbers)
  d0=                             ( compare result to zero)
;