From 8552b9f8da85f73ec83f51078e23504a922f202f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 28 Feb 2014 10:34:41 -0800 Subject: [PATCH] update --- macro.rkt | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/macro.rkt b/macro.rkt index d5f9ae1..13abffb 100644 --- a/macro.rkt +++ b/macro.rkt @@ -5,9 +5,17 @@ (define-syntax (macro-map stx) (syntax-case stx () - [(_ macro-name item) - #'(cons (macro-name item) '())] - [(_ macro-name item0 items ...) + [(_ macro-name (list item0)) #'(cons - (macro-name item0) - (macro-map macro-name items ...))])) + (macro-name item0) '())] + + [(_ macro-name (list item0 items ...)) + #'(cons + (macro-name item0) + (macro-map macro-name (list items ...)))])) + + +(define-syntax-rule (add x) + (+ 1 x)) + +(macro-map add (list 24 25 30)) \ No newline at end of file