1 files changed, 7 insertions, 0 deletions
diff --git a/stdlib/pmac.tl b/stdlib/pmac.tl
index e530fddc..b78426ba 100644
--- a/stdlib/pmac.tl
+++ b/stdlib/pmac.tl
@@ -33,3 +33,10 @@
           (lambda (,parms ,body ,env ,form)
             ,*forms))
      ,keyword))
+
+(defun macroexpand-params (prototype-form : env)
+  (tree-case prototype-form
+    ((name params . body)
+       (cons name (sys:expand-param-macro params body env prototype-form)))
+    (else (error "~s: invalid prototype-form argument ~s"
+                 %fun% prototype-form))))