From 48b3a11107447b5fa8e1aab3df98f7f6a147d106 Mon Sep 17 00:00:00 2001
From: Brett Saiki <bksaiki@gmail.com>
Date: Thu, 5 Sep 2024 12:32:31 -0700
Subject: [PATCH] fix

---
 private/mpfr.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/private/mpfr.rkt b/private/mpfr.rkt
index 4356276..b4061a7 100644
--- 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