fix matches? test

* test-suite/tests/syntax.test (matches?): Unfortunately this relatively
  recent macro fails due to the underscore-in-literals-list prohibition.
  But, it seems I was in the minority wanting _ for a literal.

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 035ebf8..5813e4d 100644 (file)
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -139,14 +139,14 @@
     (eval '(begin (if #t (begin)) #t) (interaction-environment))))
 
 (define-syntax matches?
-  (syntax-rules (_)
+  (syntax-rules (<>)
     ((_ (op arg ...) pat)   (let ((x (op arg ...)))
                               (matches? x pat)))
     ((_ x ())               (null? x))
     ((_ x (a . b))          (and (pair? x)
                                  (matches? (car x) a)
                                  (matches? (cdr x) b)))
-    ((_ x _)                #t) 
+    ((_ x <>)                #t) 
     ((_ x pat)              (equal? x 'pat))))
 
 (with-test-prefix "lambda"