From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Jan 1994 13:28:24 +0000 (+0000)
Subject: (Fffloor, Ffceil, Ffround, Fftruncate): New functions.
X-Git-Tag: emacs-19.34~10256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=892ed7e0d3c49081ddf785daca2a9b486b6ce21e;p=emacs.git

(Fffloor, Ffceil, Ffround, Fftruncate): New functions.
(syms_of_floatfns): Turn them on.
---

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);