pmatch: drop pmatch-car pmatch-cdr

2019-11-17 16:02:04 +01:00 · 2019-11-17 16:02:04 +01:00 · b5e1d6b403
parent 7a6b4cd91c
commit b5e1d6b403
1 changed files with 1 additions and 1 deletions
--- a/module/system/base/pmatch.scm
+++ b/module/system/base/pmatch.scm
@ -79,6 +79,6 @@
    ((_ v (unquote var) kt kf) (let ((var v)) kt))
    ((_ v (x . y) kt kf)
     (if (pair? v)
-         (ppat (pmatch-car v) x (ppat (pmatch-cdr v) y kt kf) kf)
+         (ppat (car v) x (ppat (cdr v) y kt kf) kf)
         kf))
    ((_ v lit kt kf) (if (eq? v (quote lit)) kt kf))))