Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents 04bc9d2f42c7
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
194 194
195 static const struct memory_description float_description[] = { 195 static const struct memory_description float_description[] = {
196 { XD_END } 196 { XD_END }
197 }; 197 };
198 198
199 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("float", float, 199 DEFINE_BASIC_LISP_OBJECT ("float", float,
200 1, /*dumpable-flag*/
201 mark_float, print_float, 0, float_equal, 200 mark_float, print_float, 0, float_equal,
202 float_hash, float_description, 201 float_hash, float_description,
203 Lisp_Float); 202 Lisp_Float);
204 203
205 /* Extract a Lisp number as a `double', or signal an error. */ 204 /* Extract a Lisp number as a `double', or signal an error. */
1256 } 1255 }
1257 1256
1258 void 1257 void
1259 syms_of_floatfns (void) 1258 syms_of_floatfns (void)
1260 { 1259 {
1261 INIT_LRECORD_IMPLEMENTATION (float); 1260 INIT_LISP_OBJECT (float);
1262 1261
1263 /* Trig functions. */ 1262 /* Trig functions. */
1264 1263
1265 DEFSUBR (Facos); 1264 DEFSUBR (Facos);
1266 DEFSUBR (Fasin); 1265 DEFSUBR (Fasin);