diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-03-04 23:14:51 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-03-04 23:18:38 -0800 |
| commit | 207de3303076bff1bb392bd407fee0dea892fe40 (patch) | |
| tree | c673cf8fb2ec1c41755f121d0e29ef73ecde795e /src/floatfns.c | |
| parent | 1af7410a2333fdadc68edb9d4890434d75ebaf5e (diff) | |
| download | emacs-207de3303076bff1bb392bd407fee0dea892fe40.tar.gz | |
* src/floatfns.c (Fftruncate): Simplify via emacs_trunc.
Diffstat (limited to 'src/floatfns.c')
| -rw-r--r-- | src/floatfns.c | 5 |
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); } |