* lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo

2021-03-02 15:57:45 -05:00
parent 8dd588b1fb
commit 3ef6d04dcf
1 changed files with 1 additions and 1 deletions
--- 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))))