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

diff --git a/tests/runtime/test-syntax.scm b/tests/runtime/test-syntax.scm
index 3358ad2d14012e76e04c39f234a72333bd128d50..f2c780a549e445acfc4570823b6c387fb587045e 100644 (file)
--- 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