Silly mistake

This commit is contained in:
Tony Garnock-Jones 2018-11-02 15:09:20 +00:00
parent 9571125f3b
commit 45f638ebae
1 changed files with 2 additions and 2 deletions

View File

@ -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]