Chez Scheme: Avoid division by 0 in complex /.

Closes racket#3821.
xedrac · May 20, 2021 · abfa49d · abfa49d
1 parent 0bad9d5
commit abfa49d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/racket/src/ChezScheme/s/5_3.ss b/racket/src/ChezScheme/s/5_3.ss
@@ -2762,7 +2762,7 @@
                                       (/ (- (* b c) (* a d)) t))))
                 ;; Let r = c/d or d/c, depending on which is larger
                 (cond
-                 [(and ($exactnum? x) ($exactnum? y))
+                 [(or (eq? c 0) (and ($exactnum? x) ($exactnum? y)))
                   (simpler-divide a b c d)]
                  [(< (abs c) (abs d))
                   (let ([r (/ d c)])