From 31fe12021603701d3cf5dfe058d897e8fe558e1c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 21 Jun 2010 21:06:29 +0200 Subject: [PATCH] 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. --- test-suite/tests/syntax.test | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 035ebf865..5813e4d8e 100644 --- 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"