From 31cd2723ae7d06c8a362eb655e749d584ac1d2ca Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Nov 2019 17:39:06 +0100 Subject: [PATCH] Revert "pmatch: drop pmatch-car pmatch-cdr" This reverts commit b5e1d6b403bcc72630973b0b11987120801b8f8d. --- 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 32fe1700..30e5103a 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 (car v) x (ppat (cdr v) y kt kf) kf) + (ppat (pmatch-car v) x (ppat (pmatch-cdr v) y kt kf) kf) kf)) ((_ v lit kt kf) (if (eq? v (quote lit)) kt kf))))