diff options
| author | Stefan Monnier | 2021-03-02 15:57:45 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2021-03-02 15:57:45 -0500 |
| commit | 3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7 (patch) | |
| tree | c7e4a4563945e4759548fee30e2a8ea14bca25a5 | |
| parent | 8dd588b1fb51bb9178bf34a6be9f35de84e95045 (diff) | |
| download | emacs-3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7.tar.gz emacs-3ef6d04dcff86a7e2ed6552c1835b24d5bfc58b7.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Fix typo
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 872 | (if (not v) | 872 | (if (not v) |
| 873 | (pcase--u1 matches code (cons (list upat sym) vars) rest) | 873 | (pcase--u1 matches code (cons (list upat sym) vars) rest) |
| 874 | ;; Non-linear pattern. Turn it into an `eq' test. | 874 | ;; Non-linear pattern. Turn it into an `eq' test. |
| 875 | (setq (cddr v) 'used) | 875 | (setcdr (cdr v) 'used) |
| 876 | (pcase--u1 (cons `(match ,sym . (pred (eql ,(cadr v)))) | 876 | (pcase--u1 (cons `(match ,sym . (pred (eql ,(cadr v)))) |
| 877 | matches) | 877 | matches) |
| 878 | code vars rest)))) | 878 | code vars rest)))) |