~ chicken-core (master) 63ca6ba8215fce731bc0ad60f5f51ad3d66f92b5

commit 63ca6ba8215fce731bc0ad60f5f51ad3d66f92b5
Author:     Peter McGoron <code@mcgoron.com>
AuthorDate: Thu Jul 30 11:03:36 2026 -0400
Commit:     Felix Winkelmann <felix.winkelmann@bevuta.com>
CommitDate: Wed Sep 9 13:45:43 2026 +0200

    Fix constant and code issues in trigonometric numbers test
    
    1. The comparator incorrectly compared the real and imaginary
       parts for equivalence.
    2. The trigonometric functions now use computed pi instead of
       literal constant pi.

diff --git a/tests/numbers-test.scm b/tests/numbers-test.scm
index a36d6bf7..0652203e 100644
--- a/tests/numbers-test.scm
+++ b/tests/numbers-test.scm
@@ -1164,7 +1164,7 @@
                (current-test-comparator
                 (lambda (exp act)
                   (or (and (nan? exp) (nan? act))
-                      (and (or (eqv? (real-part exp) (imag-part act))
+                      (and (or (eqv? (real-part exp) (real-part act))
                                (< (abs (- (real-part exp) (real-part act)))
                                   (current-test-epsilon)))
                            (or (eqv? (imag-part exp) (imag-part act))
@@ -1176,9 +1176,9 @@
 
   (test-group "trigonometric functions"
     (test-group "flonums"
-      ;; Note: we don't *actually* distinguish -nan from +nan, but whatever :)
-      (test-equal "acos(-inf)" (acos -inf.0) 3.141592653589793-inf.0i)
-      (test-equal "acos(<small number>)" (acos -1e100) 3.141592653589793-230.95165647996453i)
+      (test-equal "acos(-inf)" (acos -inf.0)
+                  (make-rectangular pi -inf.0))
+      (test-equal "acos(<small number>)" (real-part (acos -1e100)) pi)
       (test-equal "cos(-1/3pi)" (cos (- (/ pi 3))) 0.5)
       (test-equal "acos(cos(-1/3pi))" (acos (cos (- (/ pi 3)))) (/ pi 3))
       (test-equal "cos(-1/4pi)" (cos (- (/ pi 4))) 0.7071067811865476)
@@ -1212,8 +1212,9 @@
       (test-equal "acos(pi)" (acos pi) 0.0+1.81152627246085i)
       (test-equal "acos(+inf)" (acos +inf.0) 0+inf.0i)
 
-      (test-equal "asin(-inf)" (asin -inf.0) -1.5707963267948966+inf.0i)
-      (test-equal "asin(<small number>)" (asin -1e100) -1.5707963267948966+230.95165647996453i)
+      (test-equal "asin(-inf)" (asin -inf.0)
+                  (make-rectangular (- (/ pi 2)) +inf.0))
+      (test-equal "asin(<small number>)" (real-part (asin -1e100)) (- (/ pi 2)))
       (test-equal "sin(-1/3pi)" (sin (- (/ pi 3))) -0.8660254037844386)
       (test-equal "asin(sin(-1/3pi))" (asin (sin (- (/ pi 3)))) (- (/ pi 3)))
       (test-equal "sin(-1/4pi)" (sin (- (/ pi 4))) -0.7071067811865476)
@@ -1244,8 +1245,9 @@
       (test-equal "asin(sin( 5/4pi))" (asin (sin (+ pi (/ pi 4)))) (- (/ pi 4)))
       (test-equal "sin(   2pi)" (sin (* 2 pi)) 0.0)
       (test-equal "asin(sin(   2pi))" (asin (sin (* 2 pi))) 0.0)
-      (test-equal "asin(pi)" (asin pi) 1.57079632679490-1.81152627246085i)
-      (test-equal "asin(+inf)" (asin +inf.0) 1.5707963267948966-inf.0i)
+      (test-equal "asin(pi)" (real-part (asin pi)) (/ pi 2))
+      (test-equal "asin(+inf)" (asin +inf.0)
+                  (make-rectangular (/ pi 2) +inf.0))
       
       (test-equal "atan(-inf)" (atan -inf.0) (- (/ pi 2)))
       (test-equal "atan(<small number>)" (atan -1e100) (- (/ pi 2)))