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