RosettaCodeData/Task/Detect-division-by-zero/Factor/detect-division-by-zero.factor

USE: math.floats.env

: try-div ( a b -- )
    '[ { +fp-zero-divide+ } [ _ _ /f . ] with-fp-traps ] try ;