From 61cd0613cab9800c9a20c516a4a4a644dbbc42fd Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 6 May 2018 10:55:21 +0100 Subject: [PATCH] Repair bogus test. I should have caught this earlier! --- syndicate/test/pattern-test.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/syndicate/test/pattern-test.rkt b/syndicate/test/pattern-test.rkt index 25d4135..79fb804 100644 --- a/syndicate/test/pattern-test.rkt +++ b/syndicate/test/pattern-test.rkt @@ -61,8 +61,8 @@ (syntax-rules () [(_ zot) (foo 234 zot)])) - (check-analyse-pattern '(foo 123 'zot) (foo123 'zot)) - (check-analyse-pattern '(foo 234 'zot) (foo234 'zot)) + (check-analyse-pattern `(compound ,_ (atom 123) (atom 'zot)) (foo123 'zot)) + (check-analyse-pattern `(compound ,_ (atom 234) (atom 'zot)) (foo234 'zot)) (check-equal? (foo 234 'zot) (foo234 'zot)) )