From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 5 Mar 2017 07:14:51 +0000 (-0800)
Subject: * src/floatfns.c (Fftruncate): Simplify via emacs_trunc.
X-Git-Tag: emacs-26.0.90~645
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=207de3303076bff1bb392bd407fee0dea892fe40;p=emacs.git

* src/floatfns.c (Fftruncate): Simplify via emacs_trunc.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index 94da22a3ba7..9ae810669ef 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);
 }