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

Chez Scheme: Avoid division by 0 in complex /.

Browse Source 
Closes #3821.
This commit is contained in:
Sam Tobin-Hochstadt 2021-05-06 15:48:19 -04:00 committed by Sam Tobin-Hochstadt
parent 0bad9d5d8c
commit abfa49d7d9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/ChezScheme/s/5_3.ss
View File

@ -2762,7 +2762,7 @@
(/ (- (* b c) (* a d)) t)))) (/ (- (* b c) (* a d)) t))))
;; Let r = c/d or d/c, depending on which is larger ;; Let r = c/d or d/c, depending on which is larger
(cond (cond
[(and ($exactnum? x) ($exactnum? y)) [(or (eq? c 0) (and ($exactnum? x) ($exactnum? y)))
(simpler-divide a b c d)] (simpler-divide a b c d)]
[(< (abs c) (abs d)) [(< (abs c) (abs d))
(let ([r (/ d c)]) (let ([r (/ d c)])