.

original commit: 93ccb64b2d5c909d47344f835f6cdd447e570efe
2002-02-06 22:09:01 +00:00 · 2002-02-06 22:09:01 +00:00 · 29e152d3a5
commit 29e152d3a5
parent 14bfcc5291
1 changed files with 8 additions and 2 deletions
--- 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 ...)])))