From 719f6bdb2295a2eefee390b0919a30b9bac165f4 Mon Sep 17 00:00:00 2001 From: bdeket Date: Fri, 7 Feb 2025 08:06:59 +0100 Subject: [PATCH] matrix-(cos-)-angle: correctly check for infinity --- math-lib/math/private/matrix/matrix-basic.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/math-lib/math/private/matrix/matrix-basic.rkt b/math-lib/math/private/matrix/matrix-basic.rkt index 516881c..f22538a 100644 --- a/math-lib/math/private/matrix/matrix-basic.rkt +++ b/math-lib/math/private/matrix/matrix-basic.rkt @@ -312,7 +312,7 @@ (define matrix-cos-angle (let () (define (mag² [x : Number]) (if (real? x) (sqr x) (+ (sqr (real-part x)) (sqr (imag-part x))))) - (define (inf=>1 [x : Real]) : Flonum (if (eq? x +inf.0) 1. (if (eq? x -inf.0) -1. 0.))) + (define (inf=>1 [x : Real]) : Flonum (if (eqv? x +inf.0) 1. (if (eqv? x -inf.0) -1. 0.))) (: cinf=>1 (case-> (-> Real Flonum) (-> Float-Complex Float-Complex) (-> Number Number))) @@ -374,7 +374,7 @@ (cond [(flonum? ca) (flacos ca)] [(real? ca) - (if (eq? ca 1) 0 (flacos (fl ca)))] + (if (eqv? ca 1) 0 (flacos (fl ca)))] [else (acos ca)])) (: matrix-normalize