Mercurial > emacs
changeset 5595:63bc8a14a073
(Fffloor, Ffceil, Ffround, Fftruncate): New functions.
(syms_of_floatfns): Turn them on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 Jan 1994 13:28:24 +0000 |
| parents | f97415a8cf41 |
| children | 191c4af115dc |
| files | src/floatfns.c |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/floatfns.c Sat Jan 15 13:04:09 1994 +0000 +++ b/src/floatfns.c Sat Jan 15 13:28:24 1994 +0000 @@ -780,7 +780,6 @@ return arg; } -#if 0 /* It's not clear these are worth adding. */ DEFUN ("fceiling", Ffceiling, Sfceiling, 1, 1, 0, @@ -811,7 +810,7 @@ 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); } @@ -828,7 +827,6 @@ IN_FLOAT (d = ceil (d), "ftruncate", arg); return make_float (d); } -#endif #ifdef FLOAT_CATCH_SIGILL static SIGTYPE @@ -930,11 +928,11 @@ defsubr (&Serfc); defsubr (&Slog_gamma); defsubr (&Scube_root); +#endif defsubr (&Sfceiling); defsubr (&Sffloor); defsubr (&Sfround); defsubr (&Sftruncate); -#endif defsubr (&Sexp); defsubr (&Sexpt); defsubr (&Slog);