From 2c18630e5fb28b428f409f8c4c900bc220d12b3f Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
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