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 89b57679a447b1462ee701a5d0a51e0c4a0f3add..9299cebd190ae28e6d9d0ab0b71e69a0f56fb035 100644 (file)
--- 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)