Allow ($ v) bindings
This commit is contained in:
parent
4beb281a2d
commit
3240f20d90
|
@ -120,6 +120,12 @@
|
||||||
(list #'v)
|
(list #'v)
|
||||||
#'v))]
|
#'v))]
|
||||||
|
|
||||||
|
[($ v)
|
||||||
|
(values #'(?!)
|
||||||
|
#'?
|
||||||
|
(list #'v)
|
||||||
|
#'v)]
|
||||||
|
|
||||||
[($ v p)
|
[($ v p)
|
||||||
(let ()
|
(let ()
|
||||||
(define-values (pr g bs _ins) (walk #'p))
|
(define-values (pr g bs _ins) (walk #'p))
|
||||||
|
|
Loading…
Reference in New Issue