From 17d08f3e9c1ff3e6c77177dc637a2f94b1f49eca Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 28 Feb 2014 00:37:00 -0800
Subject: [PATCH] macro map

---
 macro.rkt | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 macro.rkt

diff --git a/macro.rkt b/macro.rkt
new file mode 100644
index 0000000..510449a
--- /dev/null
+++ b/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 ...))]))