comparison src/floatfns.c @ 4962:e813cf16c015

merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents 304aebb79cd3 6ef8256a020a
children b5df3737028a
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
174 { 174 {
175 return Qnil; 175 return Qnil;
176 } 176 }
177 177
178 static int 178 static int
179 float_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) 179 float_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth),
180 int UNUSED (foldcase))
180 { 181 {
181 return (extract_float (obj1) == extract_float (obj2)); 182 return (extract_float (obj1) == extract_float (obj2));
182 } 183 }
183 184
184 static Hashcode 185 static Hashcode