diff --git a/syndicate/pattern.rkt b/syndicate/pattern.rkt index a3c476b..87eee22 100644 --- a/syndicate/pattern.rkt +++ b/syndicate/pattern.rkt @@ -152,8 +152,8 @@ (instantiate-pattern->value (syntax-rearm result stx))))] ;; Extremely limited support for quasiquoting and quoting - [(quasiquote (unquote p)) (instantiate-pattern->pattern #'p)] - [(quasiquote (p ...)) (instantiate-pattern->pattern #'(list (quasiquote p) ...))] + [(quasiquote (unquote p)) (instantiate-pattern->value #'p)] + [(quasiquote (p ...)) (instantiate-pattern->value #'(list (quasiquote p) ...))] [(quasiquote p) stx] [(quote p) stx]