From 64d23ddda83b0f612f233bfb1ecb68bcf6d1704a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 17 Aug 2019 13:54:34 +0000 Subject: [PATCH] `x ... ...' is busted in syntax-rules. --- tests/runtime/test-syntax.scm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-syntax.scm b/tests/runtime/test-syntax.scm index 3358ad2d1..f2c780a54 100644 --- a/tests/runtime/test-syntax.scm +++ b/tests/runtime/test-syntax.scm @@ -97,4 +97,19 @@ USA. `(,(r 'quote) foo)))) (foo)) test-environment)) - '(let () 'foo)))) \ No newline at end of file + '(let () 'foo)))) + +(define-test 'ellipsis-ellipsis + (lambda () + (expect-error + (lambda () + (assert-equal + (unsyntax + (syntax '(let () + (define-syntax flatten + (syntax-rules () + ((flatten f (a ...) ...) + (f a ... ...)))) + (flatten list (0 1) (2 3) (4))) + test-environment)) + '(list 0 1 2 3 4)))))) \ No newline at end of file -- 2.25.1