From b92d7debddac51c917bda66f7e910379e0c30515 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 2 Nov 2009 20:50:09 -0500 Subject: [PATCH] Treat PRIMITIVE-OBJECT-SET-TYPE as a side-effecting primitive. This causes it not to be constant-folded, which was causing problems for LIARC when compiling runtime/packag.scm, and which was probably unsafe to do anyway. --- src/compiler/base/utils.scm | 1 - 1 file changed, 1 deletion(-) diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm index 2a79c5dcd..8b0a81ef4 100644 --- a/src/compiler/base/utils.scm +++ b/src/compiler/base/utils.scm @@ -388,7 +388,6 @@ USA. (ucode-primitive one-plus-fixnum) (ucode-primitive plus-fixnum) (ucode-primitive primitive-object-ref) - (ucode-primitive primitive-object-set-type) (ucode-primitive primitive-object-type) (ucode-primitive quotient) (ucode-primitive remainder) -- 2.25.1