RosettaCodeData/Task/Detect-division-by-zero/Forth/detect-division-by-zero.fth

3 lines
85 B
Forth

: safe-/ ( x y -- x/y )
['] / catch -55 = if cr ." divide by zero!" 2drop 0 then ;