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

cs: add conversion to exn:fail:contract:non-fixnum-result

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-24 19:44:04 -07:00
parent 77e362b27c
commit a97b3739a3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/cs/rumble/error-rewrite.ss
View File

@ -19,6 +19,9 @@
(#%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)
(string-prefix? "fixnum overflow" (condition-message v)))
exn:fail:contract:non-fixnum-result]
[(and (format-condition? v)
(or (string=? "attempt to reference undefined variable ~s" (condition-message v))
(string=? "attempt to assign undefined variable ~s" (condition-message v))))