From 24b4cafe65151ffe578156bbf7d7781aee4bfa7f Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 21 Jul 2015 00:59:53 +0900 Subject: [PATCH] fix srfi-26 --- contrib/40.srfi/srfi/26.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/40.srfi/srfi/26.scm b/contrib/40.srfi/srfi/26.scm index de387b71..58e88cec 100644 --- a/contrib/40.srfi/srfi/26.scm +++ b/contrib/40.srfi/srfi/26.scm @@ -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)))))