mes: Add define-macro*.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Jan 2018 10:09:10 +0000 (11:09 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 6 Jan 2018 10:09:10 +0000 (11:09 +0100)
* module/mes/optargs.mes (define-macro*): New macro.

module/mes/optargs.mes

index b0d60dabe5ad26de9dbd290a6f3e17307af6e017..94b0c39b77c399c88edd3b4afdd7f7cbfa13b257 100644 (file)
@@ -34,3 +34,6 @@
 
 (define-macro (define-module module . rest) #t)
 (include-from-path "mes/optargs.scm")
+
+(define-macro (define-macro* NAME+ARGLIST . BODY)
+  `(define-macro ,(car NAME+ARGLIST) #f (lambda* ,(cdr NAME+ARGLIST) ,@BODY)))