macro map

macro.rkt

@@ -0,0 +1,13 @@
+#lang racket/base
+(require (for-syntax racket/base))
+
+(provide macro-map)
+
+(define-syntax (macro-map stx)
+  (syntax-case stx ()
+    [(_ macro-name item)
+     #'(macro-name item)]
+    [(_ macro-name item0 items ...)
+     #'(begin
+         (macro-name item0)
+         (macro-map macro-name items ...))]))