`Improved' last change by moving test.

diff --git a/v8/src/compiler/midend/lamlift.scm b/v8/src/compiler/midend/lamlift.scm
index 9299cebd190ae28e6d9d0ab0b71e69a0f56fb035..a6ae4c5a78e6edb70165822139838011a3ac90a5 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.3 1995/02/09 04:15:32 adams Exp $
+$Id: lamlift.scm,v 1.4 1995/02/09 04:29:15 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -686,15 +686,17 @@ MIT in each case. |#
            ;; continuation variable always leftmost
            (call-with-values
                (lambda ()
-                 (list-split lambda-list** referenced-continuation-variable?))
+                 (list-split lambda-list** continuation-variable?))
              (lambda (cont-vars other-vars)
-               (if (or (null? cont-vars)
-                       (not (null? (cdr cont-vars))))
-                   (internal-error "Creating LAMBDA with non-unique continuation"
-                                   env))
-               (append cont-vars
-                       (list-transform-negative other-vars
-                         ignored-continuation-variable?))))))
+               (let ((cont-vars 
+                      ;; Discard ignored continuation variables
+                      (list-transform-positive cont-vars
+                        referenced-continuation-variable?)))
+                 (if (or (null? cont-vars)
+                         (not (null? (cdr cont-vars))))
+                     (internal-error "Creating LAMBDA with non-unique continuation"
+                                     env))
+                 (append cont-vars other-vars))))))
       ;; If this LAMBDA expression has a name, find all call sites and
       ;; rewrite to pass additional arguments
       (cond ((lamlift/env/binding env)