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

fix srfi-26

This commit is contained in:
Yuichi Nishiwaki 2015-07-21 00:59:53 +09:00
parent a1d8af908b
commit 24b4cafe65
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/40.srfi/srfi/26.scm
View File

@ -3,7 +3,7 @@
(picrin macro)
(srfi 1))
(define-syntax cut%
(define-macro cut%
(ir-macro-transformer
(lambda (form inject compare?)
(let ((slots (second form))
@ -19,7 +19,7 @@
`(cut% (,@slots x) (,@combi x) ,@(cdr se)))
(else `(cut% ,slots (,@combi ,(car se)) ,@(cdr se))))))))
(define-syntax cute%
(define-macro cute%
(ir-macro-transformer
(lambda (form inject compare?)
(let ((slots (second form))
@ -40,12 +40,12 @@
`(cute% ,slots ((x ,(car se)) ,@binds)
(,@combi x) ,@(cdr se))))))))
(define-syntax cut
(define-macro cut
(ir-macro-transformer
(lambda (form inject compare?)
`(cut% () () ,@(cdr form)))))
(define-syntax cute
(define-macro cute
(ir-macro-transformer
(lambda (form inject compare?)
`(cute% () () () ,@(cdr form)))))