From fd7cac5baed31e3729fb8f22fba63494182f3e96 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! --- imperative/test/pattern-test.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/imperative/test/pattern-test.rkt b/imperative/test/pattern-test.rkt index 25d4135..79fb804 100644 --- a/imperative/test/pattern-test.rkt +++ b/imperative/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)) )