[Emacs-diffs] master 207de33 2/4: * src/floatfns.c (Fftruncate): Simplify via emacs_trunc.

[Paul Eggert]

branch: master
commit 207de3303076bff1bb392bd407fee0dea892fe40
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    * src/floatfns.c (Fftruncate): Simplify via emacs_trunc.
---
 src/floatfns.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/floatfns.c b/src/floatfns.c
index 94da22a..9ae8106 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -534,10 +534,7 @@ Rounds the value toward zero.  */)
   (Lisp_Object arg)
 {
   double d = extract_float (arg);
-  if (d >= 0.0)
-    d = floor (d);
-  else
-    d = ceil (d);
+  d = emacs_trunc (d);
   return make_float (d);
 }