Omit unnecessary mask

nzioki · Sep 22, 2024 · 48e5838 · 48e5838
1 parent 7bcd92c
commit 48e5838
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/srfi/231/generalized-arrays.scm b/lib/srfi/231/generalized-arrays.scm
@@ -1442,7 +1442,7 @@ OTHER DEALINGS IN THE SOFTWARE.
                                      ;; no overflow
                                      (construct-representation sign-bit
                                                                (fx+ exponent ,exponent-bias)
-                                                               (fxand possible-mantissa ,mantissa-mask))
+                                                               possible-mantissa)
                                      ;; overflow
                                      (if (fx= exponent ,exponent-bias)
                                          ;; maximum finite exponent, overflow to infinity