return arg;
}
\f
-#if 0
/* It's not clear these are worth adding. */
DEFUN ("fceiling", Ffceiling, Sfceiling, 1, 1, 0,
register Lisp_Object arg;
{
double d = extract_float (arg);
- IN_FLOAT (d = rint (XFLOAT (arg)->data), "fround", arg);
+ IN_FLOAT (d = rint (d), "fround", arg);
return make_float (d);
}
IN_FLOAT (d = ceil (d), "ftruncate", arg);
return make_float (d);
}
-#endif
\f
#ifdef FLOAT_CATCH_SIGILL
static SIGTYPE
defsubr (&Serfc);
defsubr (&Slog_gamma);
defsubr (&Scube_root);
+#endif
defsubr (&Sfceiling);
defsubr (&Sffloor);
defsubr (&Sfround);
defsubr (&Sftruncate);
-#endif
defsubr (&Sexp);
defsubr (&Sexpt);
defsubr (&Slog);