RosettaCodeData/Task/Detect-division-by-zero/Maple/detect-division-by-zero-3.maple

NumericEventHandler( ':-division_by_zero'
                     = proc()
                         WARNING("division by zero");
                         NumericStatus(':-division_by_zero'=false):
                         infinity;
                       end proc ):

1/0;

NumericStatus(':-division_by_zero');