Mercurial > emacs

comparison src/fns.c @ 27727:9400865ec7cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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);