Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 9d177e8d4150
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
188 }; 188 };
189 189
190 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float, 190 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float,
191 mark_float, print_float, 0, float_equal, 191 mark_float, print_float, 0, float_equal,
192 float_hash, float_description, 192 float_hash, float_description,
193 struct Lisp_Float); 193 Lisp_Float);
194 194
195 /* Extract a Lisp number as a `double', or signal an error. */ 195 /* Extract a Lisp number as a `double', or signal an error. */
196 196
197 double 197 double
198 extract_float (Lisp_Object num) 198 extract_float (Lisp_Object num)