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 1fb10147f84849f32a1ee262b41ee46349a5269d..e4858c9bba168c52720d8449159eee55cea1c91c 100644 (file)
--- 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)))
 \f