From bf2318462d7024050635fd4620e207d6d5a7281d Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Wed, 7 Dec 2022 01:48:19 +0100 Subject: fun=>: fix unquote matching --- mew.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mew.scm') diff --git a/mew.scm b/mew.scm index 17c23d2..0780029 100644 --- a/mew.scm +++ b/mew.scm @@ -1001,10 +1001,10 @@ (apply and=> result (cdr fs))))))) (define-syntax fun=>-inner - (syntax-rules () + (syntax-rules (unquote) ((_ (acc ...)) (compose acc ...)) - ((_ (acc ...) ,arg args ...) + ((_ (acc ...) (unquote arg) args ...) (fun=>-inner (arg acc ...) args ...)) ((_ (acc ...) (arg ...) args ...) (fun=>-inner ((op arg ...) acc ...) args ...)) -- cgit 1.4.1