From 48e5838c0d3cb47020335f3446ac4e9fa318b7b3 Mon Sep 17 00:00:00 2001 From: Bradley Lucier Date: Sun, 22 Sep 2024 14:00:04 -0400 Subject: [PATCH] Omit unnecessary mask --- lib/srfi/231/generalized-arrays.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/231/generalized-arrays.scm b/lib/srfi/231/generalized-arrays.scm index a2d04e5bc..dff6408f3 100644 --- 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