From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 25 Oct 2018 15:19:05 +0000 (-0400)
Subject: * lisp/emacs-lisp/pcase.el (pcase--u1): Fix bignums
X-Git-Tag: emacs-27.0.90~4255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dd95bf0b12c8ddba82acae741f944743e37cdd8;p=emacs.git

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

Use 'eql' to compare integers
---

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