diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-15 13:28:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-15 13:28:24 +0000 |
| commit | 892ed7e0d3c49081ddf785daca2a9b486b6ce21e (patch) | |
| tree | 24227e80cba3b9fc6830b157986567b6f10a5b29 /src/floatfns.c | |
| parent | 25ab68afb8ba0d34dd868208e4fe19ea4a2f8cc7 (diff) | |
| download | emacs-892ed7e0d3c49081ddf785daca2a9b486b6ce21e.tar.gz emacs-892ed7e0d3c49081ddf785daca2a9b486b6ce21e.tar.bz2 emacs-892ed7e0d3c49081ddf785daca2a9b486b6ce21e.zip | |
(Fffloor, Ffceil, Ffround, Fftruncate): New functions.
(syms_of_floatfns): Turn them on.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/floatfns.c b/src/floatfns.c index 733746a4578..0e54fdee2a5 100644 --- a/src/floatfns.c +++ b/src/floatfns.c @@ -780,7 +780,6 @@ Rounds the value toward zero.") return arg; } -#if 0 /* It's not clear these are worth adding. */ DEFUN ("fceiling", Ffceiling, Sfceiling, 1, 1, 0, @@ -811,7 +810,7 @@ DEFUN ("fround", Ffround, Sfround, 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); } @@ -828,7 +827,6 @@ Rounds the value toward zero.") IN_FLOAT (d = ceil (d), "ftruncate", arg); return make_float (d); } -#endif #ifdef FLOAT_CATCH_SIGILL static SIGTYPE @@ -930,11 +928,11 @@ syms_of_floatfns () defsubr (&Serfc); defsubr (&Slog_gamma); defsubr (&Scube_root); +#endif defsubr (&Sfceiling); defsubr (&Sffloor); defsubr (&Sfround); defsubr (&Sftruncate); -#endif defsubr (&Sexp); defsubr (&Sexpt); defsubr (&Slog); |