From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 31 Dec 2018 21:41:51 +0000 (+0000)
Subject: Fix misparenthesization.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=935c97dff2add81e76bae3a7180f910a19d7e873;p=mit-scheme.git

Fix misparenthesization.
---

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index e4858c9bb..d25442748 100644
--- 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))