From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 17 Aug 2019 13:54:34 +0000 (+0000)
Subject: `x ... ...' is busted in syntax-rules.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~79
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64d23ddda83b0f612f233bfb1ecb68bcf6d1704a;p=mit-scheme.git

`x ... ...' is busted in syntax-rules.
---

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