Revert "pmatch: drop pmatch-car pmatch-cdr"
This reverts commit b5e1d6b403
.
This commit is contained in:
parent
7a9323defc
commit
509979d3ed
|
@ -79,6 +79,6 @@
|
||||||
((_ v (unquote var) kt kf) (let ((var v)) kt))
|
((_ v (unquote var) kt kf) (let ((var v)) kt))
|
||||||
((_ v (x . y) kt kf)
|
((_ v (x . y) kt kf)
|
||||||
(if (pair? v)
|
(if (pair? v)
|
||||||
(ppat (car v) x (ppat (cdr v) y kt kf) kf)
|
(ppat (pmatch-car v) x (ppat (pmatch-cdr v) y kt kf) kf)
|
||||||
kf))
|
kf))
|
||||||
((_ v lit kt kf) (if (eq? v (quote lit)) kt kf))))
|
((_ v lit kt kf) (if (eq? v (quote lit)) kt kf))))
|
||||||
|
|
Loading…
Reference in New Issue