comparison src/floatfns.c @ 400:a86b2b5e0111 r21-2-30

Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
986 } 986 }
987 987
988 void 988 void
989 syms_of_floatfns (void) 989 syms_of_floatfns (void)
990 { 990 {
991 INIT_LRECORD_IMPLEMENTATION (float);
991 992
992 /* Trig functions. */ 993 /* Trig functions. */
993 994
994 #ifdef LISP_FLOAT_TYPE 995 #ifdef LISP_FLOAT_TYPE
995 DEFSUBR (Facos); 996 DEFSUBR (Facos);