listify macro map

10 years ago · 6269765c3f
parent 17d08f3e9c
commit 6269765c3f
1 changed files with 2 additions and 2 deletions
--- a/macro.rkt
+++ b/macro.rkt
@ -6,8 +6,8 @@
 (define-syntax (macro-map stx)
  (syntax-case stx ()
    [(_ macro-name item)
-     #'(macro-name item)]
+     #'(cons (macro-name item) '())]
    [(_ macro-name item0 items ...)
-     #'(begin
+     #'(cons
         (macro-name item0)
         (macro-map macro-name items ...))]))