Add define-match in addition to lambda match

diff --git a/src/thales/syntax.scm b/src/thales/syntax.scm
index 0f691f168abccc80ae38517d7242b0fdfcf4145d..b7ca8f0ed5e403c65a7d17843881eb4e8834ec87 100644 (file)
--- a/src/thales/syntax.scm
+++ b/src/thales/syntax.scm
@@ -2,7 +2,7 @@
     #:use-module (srfi srfi-26)
     #:use-module (ice-9 match)
     #:re-export (cute)
-    #:export (lambda-match for for*))
+    #:export (lambda-match for for* define-match))
 
 (eval-when (eval load compile)
           (read-hash-extend #\[
@@ -26,6 +26,11 @@
              #'(lambda (t ...)
                    (nested-match (t ...) (pat ...) exp exps ... )))))))
 
+(define-syntax define-match
+    (syntax-rules ()
+       ((_ (name args ...) expr ...)
+        (define name (lambda-match (args ...) expr ...)))))
+
 (define-syntax for
     (syntax-rules (=>)
        ((_ (key => val) in hash exp exps ...)