From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 15 Dec 2018 22:45:25 +0000 (+0000)
Subject: Mark some more primitives as machine-dependent and thus non-foldable.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d8add61e540b6794aae811c3de5ad7e975648df;p=mit-scheme.git

Mark some more primitives as machine-dependent and thus non-foldable.
---

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)))