cs: rewrite division-by-zero error message

2019-05-22 08:51:06 -06:00 · 2019-05-22 08:51:06 -06:00 · ba0934521e
commit ba0934521e
parent 7a6d567daf
1 changed files with 3 additions and 0 deletions
--- a/racket/src/cs/rumble/error-rewrite.ss
+++ b/racket/src/cs/rumble/error-rewrite.ss
@ -63,6 +63,9 @@
             "~a: undefined;\n cannot reference an identifier before its definition"
             "\n  alert: compiler pass failed to add more specific guard!")
            irritants)]
+   [(and (equal? str "undefined for ~s")
+         (equal? irritants '(0)))
+    (values "division by zero" null)]
   [else
    (let ([str (string-copy str)]
          [len (string-length str)])