From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Feb 2012 09:05:22 +0000 (-0800)
Subject: Fix three duplicate definitions and one dangling reference.
X-Git-Tag: release-9.2.0~282
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=187e89f2ba33e604d754c30dc1034f3a9fea7420;p=mit-scheme.git

Fix three duplicate definitions and one dangling reference.
---

diff --git a/src/runtime/lambda.scm b/src/runtime/lambda.scm
index 551957a73..b88a3bce3 100644
--- a/src/runtime/lambda.scm
+++ b/src/runtime/lambda.scm
@@ -297,7 +297,7 @@ USA.
 		    (car auxiliary)
 		    (append (cdr auxiliary)
 			    (lambda-body-auxiliary (slambda-body internal)))
-		    (clexpr-unwrapped-body clexpr)))))))
+		    (clexpr/physical-body clexpr)))))))
 
 (define (clexpr-bound clexpr)
   (slexpr-components clexpr
@@ -428,17 +428,6 @@ USA.
 	    (subvector->list names 1 (vector-length names)))
 	  (lambda-body-auxiliary (%xlambda-body xlambda))))
 
-(define (xlambda-names-vector xlambda)
-  (&triple-second xlambda))
-
-(define (xlambda-name xlambda)
-  (vector-ref (&triple-second xlambda) 0))
-
-(define (xlambda-bound xlambda)
-  (append (let ((names (&triple-second xlambda)))
-	    (subvector->list names 1 (vector-length names)))
-	  (lambda-body-auxiliary (&triple-first xlambda))))
-
 (define (xlambda-has-internal-lambda? xlambda)
   (lambda-body-has-internal-lambda? (&triple-first xlambda)))