From 24fa4834ea9c03677282adc0c66c9157c43d0b07 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 2 Nov 2018 15:09:20 +0000 Subject: [PATCH] Silly mistake --- imperative/pattern.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/imperative/pattern.rkt b/imperative/pattern.rkt index a3c476b..87eee22 100644 --- a/imperative/pattern.rkt +++ b/imperative/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]