From 187e89f2ba33e604d754c30dc1034f3a9fea7420 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 26 Feb 2012 01:05:22 -0800 Subject: [PATCH] Fix three duplicate definitions and one dangling reference. --- src/runtime/lambda.scm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) 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))) -- 2.25.1