diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-01-26 03:05:54 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-01-26 03:05:54 +0000 |
| commit | 31ef7f7a892bab02b43b61b5b3a858dcf61cdeb9 (patch) | |
| tree | a5735d8aa98d3a7c78903a0c492f6998c171befd /src/fns.c | |
| parent | dbc4e1c12940079cad7b24e1654a0badcda8d6fc (diff) | |
| download | emacs-31ef7f7a892bab02b43b61b5b3a858dcf61cdeb9.tar.gz | |
* fns.c (internal_equal): Protect the clause for comparing numbers
of different tpes with a "#ifdef LISP_FLOAT_TYPE".
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/fns.c b/src/fns.c index 9f818e886f2..a67635a249a 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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) { |