From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 3 Nov 2009 01:50:09 +0000 (-0500)
Subject: Treat PRIMITIVE-OBJECT-SET-TYPE as a side-effecting primitive.
X-Git-Tag: 20100708-Gtk~271^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b92d7debddac51c917bda66f7e910379e0c30515;p=mit-scheme.git

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

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)