conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

renaming export in d-lambda

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 02:56:32 +09:00
parent f37c2c25f7
commit b0b60d3f01
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
piclib/picrin/experimental/lambda.scm
View File

@ -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)))