From 02d75b4283c62701384c2d2826363bd69e3122bd Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 16 Jun 2015 02:42:21 +0900
Subject: [PATCH] syntax-rules: as of now we have no plan to add (... template)
 pattern support

---
 t/r7rs-tests.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index e1d82f48..e7adaf65 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -460,9 +460,9 @@
   (syntax-rules ()
     ((be-like-begin name)
      (define-syntax name
-       (syntax-rules ()
-         ((name expr (... ...))
-          (begin expr (... ...))))))))
+       (syntax-rules ::: ()
+         ((name expr :::)
+          (begin expr :::)))))))
 (be-like-begin sequence)
 (test 4 (sequence 1 2 3 4))