diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-10-25 11:19:05 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-10-25 11:19:05 -0400 |
| commit | 9dd95bf0b12c8ddba82acae741f944743e37cdd8 (patch) | |
| tree | fbf9778c353703b56858f65d8c2c0a3bcd0039b6 /lisp/emacs-lisp | |
| parent | f1f1687fcd8d48cd519c0f2977bcecbf394a7f01 (diff) | |
| download | emacs-9dd95bf0b12c8ddba82acae741f944743e37cdd8.tar.gz emacs-9dd95bf0b12c8ddba82acae741f944743e37cdd8.tar.bz2 emacs-9dd95bf0b12c8ddba82acae741f944743e37cdd8.zip | |
* lisp/emacs-lisp/pcase.el (pcase--u1): Fix bignums
Use 'eql' to compare integers
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 4a69244d265..57c2d6c3cb5 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))) |