Return fixnum if sqrt(fixnum) is an exact int

justinethier · Mar 13, 2024 · 887e1e5 · 887e1e5
1 parent 32af1bc
commit 887e1e5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/scheme/inexact.sld b/scheme/inexact.sld
@@ -111,6 +111,9 @@
      }
    
      if (cimag(result) == 0.0) {
+       if (obj_is_int(z) && creal(result) == round(creal(result))) {
+         return_closcall1(data, k, obj_int2obj(creal(result)));
+       }
        make_double(d, creal(result));
        return_closcall1(data, k, &d);
      } else {