From 207de3303076bff1bb392bd407fee0dea892fe40 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 4 Mar 2017 23:14:51 -0800 Subject: [PATCH] * 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 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); } -- 2.39.5