Silly mistake
This commit is contained in:
parent
9571125f3b
commit
45f638ebae
|
@ -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]
|
||||
|
||||
|
|
Loading…
Reference in New Issue