procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Use 'eql' to compare integers
This commit is contained in:
Stefan Monnier 2018-10-25 11:19:05 -04:00
parent f1f1687fcd
commit 9dd95bf0b1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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