# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806018943 0
# Node ID ebaf016075f1f26f905c519d917e71d8769fbbda
# Parent  b1afb2a250a18606f14654a927a1ccb7f1b67478
(Fbyte_code): For Beqlsign, if both args are ints,
compare as ints.

diff -r b1afb2a250a1 -r ebaf016075f1 src/bytecode.c
--- a/src/bytecode.c	Mon Jul 17 21:55:53 1995 +0000
+++ b/src/bytecode.c	Mon Jul 17 22:09:03 1995 +0000
@@ -758,7 +758,18 @@
 	  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: