From 1703d570b08b5c6652c9c024d06c5cf91023cae4 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 9 Feb 1995 04:15:32 +0000
Subject: [PATCH] No longer lifts variables satisfying
 IGNORED-CONTINUATION-VARIABLE?

---
 v8/src/compiler/midend/lamlift.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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