diff options
| -rw-r--r-- | Alpha/Core.scm | 4 |
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 ...))])) |