From e4b8d9c84d8bb2a07b1f587c12b261f3bdfde86f Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 11 Jan 2026 14:56:34 -0500
Subject: Fixes for sqrt()*sqrt()

---
 src/stdlib/reals.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/stdlib/reals.c')

diff --git a/src/stdlib/reals.c b/src/stdlib/reals.c
index c786e642..5a9c1f85 100644
--- a/src/stdlib/reals.c
+++ b/src/stdlib/reals.c
@@ -216,6 +216,10 @@ Real_t Real$times(Real_t a, Real_t b) {
             if (sa->left.u64 == sb->left.u64) {
                 return sa->left;
             }
+            // Also check if arguments are equal values (not just pointers)
+            if (Real$equal(&sa->left, &sb->left, NULL)) {
+                return sa->left;
+            }
         }
     }
 
-- 
cgit v1.2.3