Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 5133:444a448b2f53

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge branch ben-lisp-object into default branch
author Ben Wing <ben@xemacs.org>
date Sun, 07 Mar 2010 06:47:37 -0600
parents b5df3737028a
children 71ee43b8a74d
comparison
equal deleted inserted replaced
5113:b2dcf6a6d8ab 5133:444a448b2f53
192 192
193 static const struct memory_description float_description[] = { 193 static const struct memory_description float_description[] = {
194 { XD_END } 194 { XD_END }
195 }; 195 };
196 196
197 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float, 197 DEFINE_DUMPABLE_FROB_BLOCK_LISP_OBJECT ("float", float,
198 1, /*dumpable-flag*/ 198 mark_float, print_float, 0,
199 mark_float, print_float, 0, float_equal, 199 float_equal, float_hash,
200 float_hash, float_description, 200 float_description, Lisp_Float);
201 Lisp_Float);
202 201
203 /* Extract a Lisp number as a `double', or signal an error. */ 202 /* Extract a Lisp number as a `double', or signal an error. */
204 203
205 double 204 double
206 extract_float (Lisp_Object num) 205 extract_float (Lisp_Object num)
2481 } 2480 }
2482 2481
2483 void 2482 void
2484 syms_of_floatfns (void) 2483 syms_of_floatfns (void)
2485 { 2484 {
2486 INIT_LRECORD_IMPLEMENTATION (float); 2485 INIT_LISP_OBJECT (float);
2487 2486
2488 /* Trig functions. */ 2487 /* Trig functions. */
2489 2488
2490 DEFSUBR (Facos); 2489 DEFSUBR (Facos);
2491 DEFSUBR (Fasin); 2490 DEFSUBR (Fasin);