[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9dd95bf: * lisp/emacs-lisp/pcase.el (pcase--u1): Fi
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 9dd95bf: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix bignums |
Date: |
Thu, 25 Oct 2018 11:20:19 -0400 (EDT) |
branch: master
commit 9dd95bf0b12c8ddba82acae741f944743e37cdd8
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/pcase.el (pcase--u1): Fix bignums
Use 'eql' to compare integers
---
lisp/emacs-lisp/pcase.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el
index 4a69244..57c2d6c 100644
--- a/lisp/emacs-lisp/pcase.el
+++ b/lisp/emacs-lisp/pcase.el
@@ -870,7 +870,8 @@ Otherwise, it defers to REST which is a list of branches of
the form
(else-rest (cdr splitrest)))
(pcase--if (cond
((null val) `(null ,sym))
- ((or (integerp val) (symbolp val))
+ ((integerp val) `(eql ,sym ,val))
+ ((symbolp val)
(if (pcase--self-quoting-p val)
`(eq ,sym ,val)
`(eq ,sym ',val)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 9dd95bf: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix bignums,
Stefan Monnier <=