From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 9 Feb 1995 04:15:32 +0000 (+0000)
Subject: No longer lifts variables satisfying IGNORED-CONTINUATION-VARIABLE?
X-Git-Tag: 20090517-FFI~6663
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1703d570b08b5c6652c9c024d06c5cf91023cae4;p=mit-scheme.git

No longer lifts variables satisfying IGNORED-CONTINUATION-VARIABLE?
---

diff --git a/v8/src/compiler/midend/lamlift.scm b/v8/src/compiler/midend/lamlift.scm
index 89b57679a..9299cebd1 100644
--- a/v8/src/compiler/midend/lamlift.scm
+++ b/v8/src/compiler/midend/lamlift.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lamlift.scm,v 1.2 1994/11/25 23:04:51 adams Exp $
+$Id: lamlift.scm,v 1.3 1995/02/09 04:15:32 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -692,7 +692,9 @@ MIT in each case. |#
 			(not (null? (cdr cont-vars))))
 		    (internal-error "Creating LAMBDA with non-unique continuation"
 				    env))
-		(append cont-vars other-vars)))))
+		(append cont-vars
+			(list-transform-negative other-vars
+			  ignored-continuation-variable?))))))
       ;; If this LAMBDA expression has a name, find all call sites and
       ;; rewrite to pass additional arguments
       (cond ((lamlift/env/binding env)