Silly mistake
This commit is contained in:
parent
9571125f3b
commit
45f638ebae
|
@ -152,8 +152,8 @@
|
||||||
(instantiate-pattern->value (syntax-rearm result stx))))]
|
(instantiate-pattern->value (syntax-rearm result stx))))]
|
||||||
|
|
||||||
;; Extremely limited support for quasiquoting and quoting
|
;; Extremely limited support for quasiquoting and quoting
|
||||||
[(quasiquote (unquote p)) (instantiate-pattern->pattern #'p)]
|
[(quasiquote (unquote p)) (instantiate-pattern->value #'p)]
|
||||||
[(quasiquote (p ...)) (instantiate-pattern->pattern #'(list (quasiquote p) ...))]
|
[(quasiquote (p ...)) (instantiate-pattern->value #'(list (quasiquote p) ...))]
|
||||||
[(quasiquote p) stx]
|
[(quasiquote p) stx]
|
||||||
[(quote p) stx]
|
[(quote p) stx]
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue