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 ac8eab6952820dc21cef49850a363637b8e4cb43..f802090e5e1731af683470d2205dc373dd3ecbe4 100644 (file)
--- 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