From f5a3629b56ab9913fd0fcf11e972552415ca60ac Mon Sep 17 00:00:00 2001 From: Linus Date: Sat, 25 Sep 2021 21:27:50 +0200 Subject: [PATCH] Make let-kw-form more portable to other syntax-case schemes * goof.scm (let-kw-form): don't use guile-specific with-ellipsis. --- goof.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/goof.scm b/goof.scm index 970b0eb..f147171 100644 --- a/goof.scm +++ b/goof.scm @@ -206,18 +206,17 @@ ((_ macro-name final-fun (user-finals ...) (loop-name (var step) ...) . body) (let-syntax ((macro-name (lambda (stx) - (with-ellipsis ::: (let loop ((lst (cdr (syntax->list stx))) (params (list #'(var step) ...))) (if (null? lst) - (with-syntax ((((v s) :::) params)) + (with-syntax ((((v s) (... ...)) params)) #'(inner-recur loop-name final-fun (user-finals ...) - ((v s) :::))) + ((v s) (... ...)))) (syntax-case (car lst) (=>) ((=> name val) (loop (cdr lst) (update-name params #'name #'val))) - (_ (error "Malformed looping clause in macro"))))))))) + (_ (error "Malformed looping clause in macro")))))))) . body))))