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

[Stefan Monnier]

branch: master
commit 3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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 c565687..4804180 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))))