update comparison to be consistent with the others

cisco · Jul 31, 2023 · 67b6c19 · 67b6c19
1 parent 2093d6c
commit 67b6c19
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/s/5_3.ss b/s/5_3.ss
@@ -565,7 +565,7 @@
                            [(or (fl> x theta) (fl> ay theta))
                             ; RP(1/z) +/- (pi/2)i
                             (fl-make-rectangular
-                               (if (fl> x ay)
+                               (if (fl>= x ay)
                                    (fl/ (fl+ x (fl* (fl/ y x) y)))
                                    (let ([r (fl/ x y)])
                                      (fl/ r (fl+ y (fl* r x)))))