syntax-rules: as of now we have no plan to add (... template) pattern support

2015-06-16 02:42:21 +09:00 · 2015-06-16 02:42:21 +09:00 · 02d75b4283
parent 84bb7e9ffc
commit 02d75b4283
1 changed files with 3 additions and 3 deletions
--- 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))