diff options
author | Jim Blandy <[email protected]> | 1993-01-26 03:05:54 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1993-01-26 03:05:54 +0000 |
commit | 31ef7f7a892bab02b43b61b5b3a858dcf61cdeb9 (patch) | |
tree | a5735d8aa98d3a7c78903a0c492f6998c171befd /src | |
parent | dbc4e1c12940079cad7b24e1654a0badcda8d6fc (diff) |
* fns.c (internal_equal): Protect the clause for comparing numbers
of different tpes with a "#ifdef LISP_FLOAT_TYPE".
Diffstat (limited to 'src')
-rw-r--r-- | src/fns.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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) { |