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

1 files changed, 1 insertions, 4 deletions

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