From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Jan 1994 23:57:50 +0000 (+0000)
Subject: When constant-folding multiple definition values vector, must unmap
X-Git-Tag: 20090517-FFI~7321
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a77e4098656d3b9b31aed8adfee523ce24e4e8c5;p=mit-scheme.git

When constant-folding multiple definition values vector, must unmap
reference traps so that definition works right.
---

diff --git a/v7/src/compiler/fggen/fggen.scm b/v7/src/compiler/fggen/fggen.scm
index 46147da24..8323a0873 100644
--- a/v7/src/compiler/fggen/fggen.scm
+++ b/v7/src/compiler/fggen/fggen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fggen.scm,v 4.30 1993/03/02 01:15:49 gjr Exp $
+$Id: fggen.scm,v 4.31 1994/01/25 23:57:50 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -859,7 +859,8 @@ MIT in each case. |#
 	 block continuation context
 	 (list->vector
 	  (map (lambda (subpr)
-		 (constant-value (subproblem-rvalue subpr)))
+		 (unmap-reference-trap
+		  (constant-value (subproblem-rvalue subpr))))
 	       operands)))
 	(generate/operator block continuation context expression
 			   (ucode-primitive vector)