From 3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 2 Mar 2021 15:57:45 -0500 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo --- lisp/emacs-lisp/pcase.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index c565687896a..4804180ac9b 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -872,7 +872,7 @@ Otherwise, it defers to REST which is a list of branches of the form (if (not v) (pcase--u1 matches code (cons (list upat sym) vars) rest) ;; Non-linear pattern. Turn it into an `eq' test. - (setq (cddr v) 'used) + (setcdr (cdr v) 'used) (pcase--u1 (cons `(match ,sym . (pred (eql ,(cadr v)))) matches) code vars rest)))) -- 2.39.2