From 2c18630e5fb28b428f409f8c4c900bc220d12b3f Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 6 May 2020 14:26:23 -0700 Subject: Fix /. macro and import --- Alpha/Core.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Alpha') 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 ...))])) -- cgit v1.2.3