Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-16 05:21:26 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2021-03-02 15:57:45 -05:00
parent 8dd588b1fb
commit 3ef6d04dcf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/pcase.el
View file

@ -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))))