Fix misparenthesization.

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index e4858c9bba168c52720d8449159eee55cea1c91c..d25442748b4f41a6ba8262ee4d8d2af9cd432037 100644 (file)
--- a/src/compiler/base/utils.scm
+++ b/src/compiler/base/utils.scm
@@ -541,8 +541,8 @@ USA.
 
 (define (constant-foldable-primitive? operator)
   (and (memq operator function-primitives)
-       (or (not compiler:cross-compiling?))
-       (not (memq operator machine-dependent-primitives))))
+       (not (and compiler:cross-compiling?
+                (memq operator machine-dependent-primitives)))))
 
 (define-integrable (side-effect-free-primitive? operator)
   (memq operator side-effect-free-primitives))