(Fbyte_code): For Beqlsign, if both args are ints,

compare as ints.

diff --git a/src/bytecode.c b/src/bytecode.c
index 39e2ae4a43494394807e9baa06a3f26a811d6964..ac2e3ab182466b3bedf2e6b97fb5ed57a6d9fc21 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -758,7 +758,18 @@ If the third argument is incorrect, Emacs may crash.")
          v2 = POP; v1 = TOP;
          CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
          CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
-         TOP = (XFLOATINT (v1) == XFLOATINT (v2)) ? Qt : Qnil;
+#ifdef LISP_FLOAT_TYPE
+         if (FLOATP (num1) || FLOATP (num2))
+           {
+             double f1, f2;
+
+             f1 = (FLOATP (v1) ? XFLOAT (v1)->data : XINT (v1));
+             f2 = (FLOATP (v2) ? XFLOAT (v2)->data : XINT (v2));
+             TOP = (f1 == f2 ? Qt : Qnil);
+           }
+         else
+#endif
+           TOP = (XINT (num1) == XINT (num2) ? Qt : Qnil);
          break;
 
        case Bgtr: