[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3ef6d04: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo
From: |
Stefan Monnier |
Subject: |
master 3ef6d04: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo |
Date: |
Tue, 2 Mar 2021 15:57:19 -0500 (EST) |
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))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3ef6d04: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo,
Stefan Monnier <=