Chez Scheme: Avoid division by 0 in complex /.

Closes #3821.
2021-05-06 15:48:19 -04:00 · 2021-05-06 15:48:19 -04:00 · abfa49d7d9
commit abfa49d7d9
parent 0bad9d5d8c
1 changed files with 1 additions and 1 deletions
--- 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)])