Fix /. macro and import

1 files changed, 3 insertions, 1 deletions

diff --git a/Alpha/Core.scm b/Alpha/Core.scm
index 124081d..9aecc0e 100644
--- a/Alpha/Core.scm
+++ b/Alpha/Core.scm
@@ -2,7 +2,7 @@
   #:use-module ((ice-9 format))
   #:use-module ((system vm program))
   #:use-module ((ice-9 rdelim) #:select (read-line))
-  #:use-module ((srfi srfi-1) #:select any)
+  #:use-module ((srfi srfi-1) #:select (any))
   #:export (fmt printf pr prn
             first ffirst second rest last butlast
             true? false? nil nil? some? empty?
@@ -156,6 +156,8 @@
   (syntax-rules ()
     [(/. a b)
      (lambda (a) b)]
+    [(/. a ... b)
+     (lambda (a ...) b)]
     [(/. a ... (b ...))
      (lambda (a ...) (b ...))]))