fix

bksaiki · bksaiki · commit 48b3a1110744 · 2024-09-05T12:32:31.000-07:00
diff --git a/private/mpfr.rkt b/private/mpfr.rkt
@@ -111,7 +111,7 @@
   (let loop ([x x])
     (cond
       [(zero? x) 0.bf]
-      [(negative? x) (bf- (loop x))]
+      [(negative? x) (bf- (loop (- x)))]
       [(> x (infinite-ordinal es sig)) +nan.bf]
       [(= x (infinite-ordinal es sig)) +inf.bf]
       [else ; non-zero, real number
