From e8b87d0167877bb1b0828c6421a592e86f4de844 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 11 Jan 2026 23:55:29 -0500
Subject: Bugfix for negative numbers like -2.3

---
 src/stdlib/reals.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/stdlib/reals.c b/src/stdlib/reals.c
index 0413a792..3ffd1708 100644
--- a/src/stdlib/reals.c
+++ b/src/stdlib/reals.c
@@ -753,9 +753,10 @@ OptionalReal_t Real$parse(Text_t text, Text_t *remainder) {
             // n = int_part + 10^digits * fractional_part
             OptionalInt_t fractional_part = Int$parse(text, I(10), &after_decimal);
             if (fractional_part.small != 0 && !Int$is_zero(fractional_part)) {
-                ret = Real$plus(ret,
-                                Real$divided_by(Real$from_int(fractional_part),
-                                                Real$power(Real$from_float64(10.), Real$from_float64((double)digits))));
+                Real_t frac = Real$from_int(fractional_part);
+                Real_t pow10 = Real$power(Real$from_float64(10.), Real$from_float64((double)digits));
+                Real_t excess = Real$divided_by(frac, pow10);
+                ret = Int$is_negative(int_part) ? Real$minus(ret, excess) : Real$plus(ret, excess);
             }
         }
         text = after_decimal;
@@ -1112,6 +1113,7 @@ Real_t Real$abs(Real_t x) {
 public
 Real_t Real$floor(Real_t x) {
     if (!Real$is_boxed(x)) {
+        // TODO: this may be inexact in some rare cases
         return make_double(floor(x.d));
     }
 
-- 
cgit v1.2.3