Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Check for divide by zero

Browse source
This commit is contained in:
Justin Ethier 2017-08-08 15:09:37 +00:00
parent a6d2cc0b7a
commit a247ba03ad
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
srfi/143.sld
View file

@ -60,14 +60,17 @@
(er-macro-transformer
(lambda (expr rename compare)
(let* ((fnc (cadr expr))
(args
"(void* data, int argc, closure _, object k, object i, object j)")
(op-str (caddr expr))
(zero-check? (and (> (length expr) 3) (cadddr expr)))
(args "(void* data, int argc, closure _, object k, object i, object j)")
(body
(string-append
" Cyc_check_fixnum(data, i);
Cyc_check_fixnum(data, j);
object result = obj_int2obj(obj_obj2int(i) " op-str " obj_obj2int(j));
Cyc_check_fixnum(data, j); "
(if zero-check?
" if (obj_obj2int(j) == 0) { Cyc_rt_raise_msg(data, \"Divide by zero\");}"
"")
" object result = obj_int2obj(obj_obj2int(i) " op-str " obj_obj2int(j));
return_closcall1(data, k, result); ")))
`(define-c ,fnc ,args ,body)))))
(define-syntax cmp-op
@ -88,11 +91,8 @@
(bin-num-op fx+ "+")
(bin-num-op fx- "-")
(bin-num-op fx* "*")
;; TODO: need a 0 check for these next 2. maybe need another macro for that
(bin-num-op fxquotient "/")
(bin-num-op fxremainder "%")
(bin-num-op fxquotient "/" #t)
(bin-num-op fxremainder "%" #t)
(cmp-op fx=? "==")
(cmp-op fx<? "<")
(cmp-op fx>? ">")