From 935c97dff2add81e76bae3a7180f910a19d7e873 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 31 Dec 2018 21:41:51 +0000 Subject: [PATCH] Fix misparenthesization. --- src/compiler/base/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1