diff --git a/racket/syndicate/pattern.rkt b/racket/syndicate/pattern.rkt index baa7ae9..8a82bb3 100644 --- a/racket/syndicate/pattern.rkt +++ b/racket/syndicate/pattern.rkt @@ -120,6 +120,12 @@ (list #'v) #'v))] + [($ v) + (values #'(?!) + #'? + (list #'v) + #'v)] + [($ v p) (let () (define-values (pr g bs _ins) (walk #'p))