mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source 
Paper-over today's bootstrap failure.
This commit is contained in:
Glenn Morris 2015-06-16 18:27:02 -04:00
parent 70a567971a
commit cf94a3e0c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emacs-lisp/pcase.el
View File

@ -774,9 +774,9 @@ Otherwise, it defers to REST which is a list of branches of the form
((memq upat '(t _)) ((memq upat '(t _))
(let ((code (pcase--u1 matches code vars rest))) (let ((code (pcase--u1 matches code vars rest)))
(if (eq upat '_) code (if (eq upat '_) code
(macroexp--warn-and-return (message "%s"
"Pattern t is deprecated. Use `_' instead" "Pattern t is deprecated. Use `_' instead")
code)))) code)))
((eq upat 'pcase--dontcare) :pcase--dontcare) ((eq upat 'pcase--dontcare) :pcase--dontcare)
((memq (car-safe upat) '(guard pred)) ((memq (car-safe upat) '(guard pred))
(if (eq (car upat) 'pred) (pcase--mark-used sym)) (if (eq (car upat) 'pred) (pcase--mark-used sym))