1 files changed, 5 insertions, 0 deletions
diff --git a/stdlib/match.tl b/stdlib/match.tl
index 55d50417..ff3134fd 100644
--- a/stdlib/match.tl
+++ b/stdlib/match.tl
@@ -833,6 +833,11 @@
                                      ,args ,*body)))
        ',name)))
 
+(defun macroexpand-match (pattern : env)
+  (iflet ((xfun (and (consp pattern) [*match-macro* (car pattern)])))
+    [xfun pattern env]
+    pattern))
+
 (defun check (f op pat)
   (if (or (not (listp pat))
           (meq (car pat) 'sys:expr 'sys:var 'sys:quasi))