[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 207de33 2/4: * src/floatfns.c (Fftruncate): Simplif
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 207de33 2/4: * src/floatfns.c (Fftruncate): Simplify via emacs_trunc. |
Date: |
Sun, 5 Mar 2017 02:18:44 -0500 (EST) |
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);
}