From 0d8add61e540b6794aae811c3de5ad7e975648df Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 15 Dec 2018 22:45:25 +0000 Subject: [PATCH] Mark some more primitives as machine-dependent and thus non-foldable. --- src/compiler/base/utils.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm index 1fb10147f..e4858c9bb 100644 --- a/src/compiler/base/utils.scm +++ b/src/compiler/base/utils.scm @@ -478,7 +478,12 @@ USA. ;; primitives here too. (define machine-dependent-primitives - (list (ucode-primitive primitive-object-ref 2) + (list (ucode-primitive fixnum? 1) + (ucode-primitive index-fixnum?) + (ucode-primitive object-type 1) + (ucode-primitive object-type? 2) + (ucode-primitive primitive-object-ref 2) + (ucode-primitive primitive-object-type 1) (ucode-primitive system-vector-ref 2) (ucode-primitive system-vector-size 1))) -- 2.25.1