diff options
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) | |||
| 837 | do_cdr: | 837 | do_cdr: |
| 838 | QUIT; | 838 | QUIT; |
| 839 | if (EQ (o1, o2)) return Qt; | 839 | if (EQ (o1, o2)) return Qt; |
| 840 | #ifdef LISP_FLOAT_TYPE | ||
| 840 | if (NUMBERP (o1) && NUMBERP (o2)) | 841 | if (NUMBERP (o1) && NUMBERP (o2)) |
| 841 | { | 842 | { |
| 842 | return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil; | 843 | return (extract_float (o1) == extract_float (o2)) ? Qt : Qnil; |
| 843 | } | 844 | } |
| 845 | #endif | ||
| 844 | if (XTYPE (o1) != XTYPE (o2)) return Qnil; | 846 | if (XTYPE (o1) != XTYPE (o2)) return Qnil; |
| 845 | if (XTYPE (o1) == Lisp_Cons) | 847 | if (XTYPE (o1) == Lisp_Cons) |
| 846 | { | 848 | { |