From 969a63a0dda0c215a277d78164022d4e741be5c3 Mon Sep 17 00:00:00 2001 From: Pavel Panchekha Date: Thu, 24 Sep 2026 18:06:57 -0700 Subject: [PATCH] Avoid an flabs call to skip allocation entirely --- math-lib/math/private/flonum/flonum-bits.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/math-lib/math/private/flonum/flonum-bits.rkt b/math-lib/math/private/flonum/flonum-bits.rkt index 7503359..2944c5f 100644 --- a/math-lib/math/private/flonum/flonum-bits.rkt +++ b/math-lib/math/private/flonum/flonum-bits.rkt @@ -102,10 +102,9 @@ (: flonum->chunks (-> Flonum (Values Integer Integer))) (define (flonum->chunks x) (define neg? (fl< x 0.0)) - (define ax (flabs x)) (if neg? - (values (- (flbit-field ax 0 32)) (- (flbit-field ax 32 64))) - (values (flbit-field ax 0 32) (flbit-field ax 32 64)))) + (values (- (flbit-field x 0 32)) (- (flbit-field x 32 63))) + (values (flbit-field x 0 32) (flbit-field x 32 63)))) (: flonums-between (Flonum Flonum -> Integer)) (define (flonums-between x y)