suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: more divide-by-zero exception conversions

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-17 15:28:42 -07:00
parent 22b721be8a
commit f5babc4246
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/cs/rumble/error.ss
View File

@ -690,9 +690,14 @@
exn:fail:contract:arity] exn:fail:contract:arity]
[(and (format-condition? v) [(and (format-condition? v)
(who-condition? v) (who-condition? v)
(eq? '/ (condition-who v)) (#%memq (condition-who v) '(/ modulo remainder quotient atan angle log))
(string=? "undefined for ~s" (condition-message v))) (string=? "undefined for ~s" (condition-message v)))
exn:fail:contract:divide-by-zero] exn:fail:contract:divide-by-zero]
[(and (format-condition? v)
(who-condition? v)
(#%memq (condition-who v) '(expt atan2))
(string=? "undefined for values ~s and ~s" (condition-message v)))
exn:fail:contract:divide-by-zero]
[(and (format-condition? v) [(and (format-condition? v)
(or (string=? "attempt to reference undefined variable ~s" (condition-message v)) (or (string=? "attempt to reference undefined variable ~s" (condition-message v))
(string=? "attempt to assign undefined variable ~s" (condition-message v)))) (string=? "attempt to assign undefined variable ~s" (condition-message v))))