From 29e152d3a5966a9555ee788642714f5ba37fdc92 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 6 Feb 2002 22:09:01 +0000
Subject: [PATCH] .

original commit: 93ccb64b2d5c909d47344f835f6cdd447e570efe
---
 collects/mzlib/defmacro.ss | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/defmacro.ss b/collects/mzlib/defmacro.ss
index 089a2e2..fb9d4f7 100644
--- a/collects/mzlib/defmacro.ss
+++ b/collects/mzlib/defmacro.ss
@@ -3,7 +3,8 @@
   (require-for-syntax (lib "stx.ss" "syntax")
 		      "private/dmhelp.ss")
 
-  (provide define-macro)
+  (provide define-macro
+	   defmacro)
 
   (define-syntax define-macro
     (lambda (stx)
@@ -63,4 +64,9 @@
 		       (dm-subst
 			ht
 			(apply proc (cdr (dm-syntax->datum stx ht))))
-		       stx))))))))]))))
+		       stx))))))))])))
+
+  (define-syntax defmacro
+    (syntax-rules ()
+	[(_ name formals body1 body ...)
+	 (define-macro (name . formals) body1 body ...)])))