From 6dbbeec0585e473f0548b7bf192345cd554f4fcb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 27 Aug 1987 21:32:46 +0000 Subject: [PATCH] Delete `complete-garbage-collect' from set of unsafe primitives. Delete structure references from set of constant foldable primitives. --- v7/src/compiler/base/utils.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 -- 2.25.1