procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* fns.c (internal_equal): Protect the clause for comparing numbers

Browse source 
of different tpes with a "#ifdef LISP_FLOAT_TYPE".
This commit is contained in:
Jim Blandy 1993-01-26 03:05:54 +00:00
parent dbc4e1c129
commit 31ef7f7a89
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/fns.c
View file

@ -837,10 +837,12 @@ internal_equal (o1, o2, depth)
do_cdr:
QUIT;
if (EQ (o1, o2)) return Qt;
#ifdef LISP_FLOAT_TYPE
if (NUMBERP (o1) && NUMBERP (o2))
{
return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil;
}
#endif
if (XTYPE (o1) != XTYPE (o2)) return Qnil;
if (XTYPE (o1) == Lisp_Cons)
{