7 lines
174 B
Text
7 lines
174 B
Text
|
@(do (defun div-check (x y)
|
||
|
|
(catch (/ x y)
|
||
|
|
(numeric_error (msg)
|
||
|
|
'div-check-failed))))
|
||
|
|
@(bind good @(div-check 32 8))
|
||
|
|
@(bind bad @(div-check 42 0))
|