Mercurial > emacs
comparison src/fns.c @ 27727:9400865ec7cf
Remove `LISP_FLOAT_TYPE' and `standalone'.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 17 Feb 2000 09:45:46 +0000 |
parents | 774df97ad330 |
children | 70c1647c2bfc |
comparison
equal
deleted
inserted
replaced
27726:9627810a3fed | 27727:9400865ec7cf |
---|---|
1850 if (XTYPE (o1) != XTYPE (o2)) | 1850 if (XTYPE (o1) != XTYPE (o2)) |
1851 return 0; | 1851 return 0; |
1852 | 1852 |
1853 switch (XTYPE (o1)) | 1853 switch (XTYPE (o1)) |
1854 { | 1854 { |
1855 #ifdef LISP_FLOAT_TYPE | |
1856 case Lisp_Float: | 1855 case Lisp_Float: |
1857 return (extract_float (o1) == extract_float (o2)); | 1856 return (extract_float (o1) == extract_float (o2)); |
1858 #endif | |
1859 | 1857 |
1860 case Lisp_Cons: | 1858 case Lisp_Cons: |
1861 if (!internal_equal (XCAR (o1), XCAR (o2), depth + 1)) | 1859 if (!internal_equal (XCAR (o1), XCAR (o2), depth + 1)) |
1862 return 0; | 1860 return 0; |
1863 o1 = XCDR (o1); | 1861 o1 = XCDR (o1); |