From b0b60d3f01965d53cb1e9677c91a27c9fcd6151c Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Wed, 6 Aug 2014 02:56:32 +0900 Subject: [PATCH] renaming export in d-lambda --- piclib/picrin/experimental/lambda.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/piclib/picrin/experimental/lambda.scm b/piclib/picrin/experimental/lambda.scm index a7a42d24..acbe0c86 100644 --- a/piclib/picrin/experimental/lambda.scm +++ b/piclib/picrin/experimental/lambda.scm @@ -1,11 +1,10 @@ (define-library (picrin experimental lambda) - (import (rename (scheme base) - (lambda lambda%)) + (import (scheme base) (picrin macro)) (define-syntax bind (ir-macro-transformer - (lambda% (form inject compare) + (lambda (form inject compare) (let ((formal (car (cdr form))) (value (car (cdr (cdr form)))) (body (cdr (cdr (cdr form))))) @@ -27,11 +26,11 @@ ,@body) (error "match failure" ,value ',formal)))))))) - (define-syntax lambda + (define-syntax destructuring-lambda (ir-macro-transformer - (lambda% (form inject compare) + (lambda (form inject compare) (let ((args (car (cdr form))) (body (cdr (cdr form)))) - `(lambda% formal# (bind ,args formal# ,@body)))))) + `(lambda formal# (bind ,args formal# ,@body)))))) - (export lambda)) + (export (rename destructuring-lambda lambda)))