From 4b6e4d219973fcc7ed060214debbad8e061f55d7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 17 Aug 1987 18:16:27 +0000
Subject: [PATCH] Do no constant fold operations on mutable structures.

---
 v7/src/runtime/scomb.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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)))
-- 
2.25.1