From 1857b80bc88522c300765e852a5968da4fea3074 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 3 Sep 2014 07:11:48 +0900
Subject: [PATCH] Adding tests for R7RS macro extensions (... <template>) and
 overriding the ellipsis.  Patch from Per Bothner.

---
 tests/r7rs-tests.scm | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index 2130031b..1c9aecc8 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -409,15 +409,35 @@
            (if y)
            y))))
 
-(define-syntax be-like-begin
+(define-syntax be-like-begin1
   (syntax-rules ()
-    ((be-like-begin name)
+    ((be-like-begin1 name)
      (define-syntax name
        (syntax-rules ()
          ((name expr (... ...))
           (begin expr (... ...))))))))
-(be-like-begin sequence)
-(test 4 (sequence 1 2 3 4))
+(be-like-begin1 sequence1)
+(test 3 (sequence1 0 1 2 3))
+
+(define-syntax be-like-begin2
+  (syntax-rules ()
+    ((be-like-begin2 name)
+     (define-syntax name
+       (... (syntax-rules ()
+              ((name expr ...)
+               (begin expr ...))))))))
+(be-like-begin1 sequence2)
+(test 4 (sequence2 1 2 3 4))
+
+(define-syntax be-like-begin3
+  (syntax-rules ()
+    ((be-like-begin3 name)
+     (define-syntax name
+       (syntax-rules dots ()
+         ((name expr dots)
+          (begin expr dots)))))))
+(be-like-begin3 sequence3)
+(test 5 (sequence3 2 3 4 5))
 
 (define-syntax jabberwocky
   (syntax-rules ()