diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-01-26 01:58:16 +0000 |
| commit | dbc4e1c12940079cad7b24e1654a0badcda8d6fc (patch) | |
| tree | e0fbea5b15bd13d2839c8b59b624cec80f31bfd8 /src/fns.c | |
| parent | 72766144811cd7258b2a59e56f6e3657537ea508 (diff) | |
| download | emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.tar.gz emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.tar.bz2 emacs-dbc4e1c12940079cad7b24e1654a0badcda8d6fc.zip | |
JimB's changes since January 18th
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index 144d6ef345e..9f818e886f2 100644 --- a/src/fns.c +++ b/src/fns.c @@ -836,8 +836,12 @@ internal_equal (o1, o2, depth) 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 @@ do_cdr: && 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) |