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)) )