From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 17 Aug 1987 18:16:27 +0000 (+0000)
Subject: Do no constant fold operations on mutable structures.
X-Git-Tag: 20090517-FFI~13152
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4b6e4d219973fcc7ed060214debbad8e061f55d7;p=mit-scheme.git

Do no constant fold operations on mutable structures.
---

diff --git a/v7/src/runtime/scomb.scm b/v7/src/runtime/scomb.scm
index 55ab9a2a0..6afcbfb7e 100644
--- a/v7/src/runtime/scomb.scm
+++ b/v7/src/runtime/scomb.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 13.42 1987/03/17 18:52:59 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scomb.scm,v 13.43 1987/08/17 18:16:27 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -237,7 +237,6 @@
 (define constant-folding-operators
   (map make-primitive-procedure
        '(PRIMITIVE-TYPE
-	 CAR CDR VECTOR-LENGTH VECTOR-REF
 	 &+ &- &* &/ INTEGER-DIVIDE 1+ -1+
 	 TRUNCATE ROUND FLOOR CEILING
 	 SQRT EXP LOG SIN COS &ATAN)))