From 7a9323defc0597ecf7d5d9b83aecd762d7ed90d8 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Nov 2019 16:02:04 +0100 Subject: [PATCH] pmatch: drop pmatch-car pmatch-cdr --- module/system/base/pmatch.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/system/base/pmatch.scm b/module/system/base/pmatch.scm index 30e5103a..32fe1700 100644 --- 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))))