added matcher to let

zepto-lang · Nov 22, 2016 · d4024ec · d4024ec
1 parent b63f941
commit d4024ec
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/let.zp b/let.zp
@@ -12,6 +12,8 @@
 ;; husk-scheme (github.com/justinethier/husk-scheme).
 (define-syntax let
     (syntax-rules ()
+        ((_ (((x ...) v) ...) e1 e2 ...)
+            (apply (lambda (x ...) e1 e2 ...) v ...))
         ((_ ((x v) ...) e1 e2 ...)
             ((lambda (x ...) e1 e2 ...) v ...))
         ((_ name ((x v) ...) e1 e2 ...)