From 45f638ebae09b4d9fa8422c35e2f466f8135b6d9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 2 Nov 2018 15:09:20 +0000 Subject: [PATCH] Silly mistake --- syndicate/pattern.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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]