From abfa49d7d9cdec74b876ef447000be46509a32e7 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@cs.indiana.edu>
Date: Thu, 6 May 2021 15:48:19 -0400
Subject: [PATCH] Chez Scheme: Avoid division by 0 in complex `/`.

Closes #3821.
---
 racket/src/ChezScheme/s/5_3.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/ChezScheme/s/5_3.ss b/racket/src/ChezScheme/s/5_3.ss
index 38f4a31700..c1ef389cf0 100644
--- 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)])