Fix three duplicate definitions and one dangling reference.

diff --git a/src/runtime/lambda.scm b/src/runtime/lambda.scm
index 551957a73e235e0b56318c8295d490902319f726..b88a3bce389055f01ae422ddef0606066f5341c1 100644 (file)
--- 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)))