From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 27 Aug 1987 21:32:46 +0000 (+0000)
Subject: Delete `complete-garbage-collect' from set of unsafe primitives.
X-Git-Tag: 20090517-FFI~13104
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6dbbeec0585e473f0548b7bf192345cd554f4fcb;p=mit-scheme.git

Delete `complete-garbage-collect' from set of unsafe primitives.
Delete structure references from set of constant foldable primitives.
---

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index ac8eab695..f802090e5 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.90 1987/07/08 21:54:59 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.91 1987/08/27 21:32:46 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -325,7 +325,7 @@ MIT in each case. |#
 				with-history-disabled
 				force
 				primitive-purify
-				complete-garbage-collect
+				;;complete-garbage-collect
 				dump-band
 				primitive-impurify
 				with-threaded-continuation
@@ -370,8 +370,7 @@ MIT in each case. |#
 
 (define constant-foldable-operators
   (list primitive-type primitive-type?
-	eq? null? pair? car cdr vector-length vector-ref
-	number? complex? real? rational? integer?
+	eq? null? pair? number? complex? real? rational? integer?
 	zero? positive? negative? odd? even? exact? inexact?
 	= < > <= >= max min
 	+ - * / 1+ -1+ abs quotient remainder modulo integer-divide