Mercurial > emacs

diff src/fns.c @ 1821:04fb1d3d6992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes since January 18th
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:58:16 +0000
parents a1933e20a2a3
children 001382595e48
line wrap: on
line diff
--- a/src/fns.c	Tue Jan 26 01:56:29 1993 +0000
+++ b/src/fns.c	Tue Jan 26 01:58:16 1993 +0000
@@ -836,8 +836,12 @@
     error ("Stack overflow in equal");
 do_cdr:
   QUIT;
+  if (EQ (o1, o2)) return Qt;
+  if (NUMBERP (o1) && NUMBERP (o2))
+    {
+      return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
+    }
   if (XTYPE (o1) != XTYPE (o2)) return Qnil;
-  if (XINT (o1) == XINT (o2)) return Qt;
   if (XTYPE (o1) == Lisp_Cons)
     {
       Lisp_Object v1;
@@ -853,7 +857,8 @@
 	      && XMARKER (o1)->bufpos == XMARKER (o2)->bufpos)
 	? Qt : Qnil;
     }
-  if (XTYPE (o1) == Lisp_Vector)
+  if (XTYPE (o1) == Lisp_Vector
+      || XTYPE (o1) == Lisp_Compiled)
     {
       register int index;
       if (XVECTOR (o1)->size != XVECTOR (o2)->size)