Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/floatfns.c	Sun Mar 07 06:43:19 2010 -0600
+++ b/src/floatfns.c	Sun Mar 07 06:47:37 2010 -0600
@@ -194,11 +194,10 @@
   { XD_END }
 };
 
-DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float,
-				     1, /*dumpable-flag*/
-				     mark_float, print_float, 0, float_equal,
-				     float_hash, float_description,
-				     Lisp_Float);
+DEFINE_DUMPABLE_FROB_BLOCK_LISP_OBJECT ("float", float,
+					mark_float, print_float, 0,
+					float_equal, float_hash,
+					float_description, Lisp_Float);
 
 /* Extract a Lisp number as a `double', or signal an error.  */
 
@@ -2483,7 +2482,7 @@
 void
 syms_of_floatfns (void)
 {
-  INIT_LRECORD_IMPLEMENTATION (float);
+  INIT_LISP_OBJECT (float);
 
   /* Trig functions.  */