Get rid of spurious "cont" binding in first-class environments.

diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm
index 9a8e1b6d665f0617321a50822d560854f7c325b1..4c103d9fd6fa3a7478a7f86f265c5f7fc7e857ca 100644 (file)
--- a/v8/src/compiler/midend/envconv.scm
+++ b/v8/src/compiler/midend/envconv.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: envconv.scm,v 1.3 1994/11/25 23:01:56 jmiller Exp $
+$Id: envconv.scm,v 1.4 1994/11/26 00:23:24 jmiller Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -142,7 +142,8 @@ MIT in each case. |#
 (define (envconv/lambda* context* env lambda-list body)
   (envconv/binding-body context*
                        env
-                       (lambda-list->names lambda-list)
+                       ;; Ignore continuation
+                       (cdr (lambda-list->names lambda-list)) 
                        body
                        (lambda (body*)
                          `(LAMBDA ,lambda-list