From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 6 Oct 1994 22:38:08 +0000 (+0000)
Subject: (Fabs): Don't use XFASTINT when negative.
X-Git-Tag: emacs-19.34~6489
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db37cb37320e2d9682ec88f00f1bfa01f7a96f46;p=emacs.git

(Fabs): Don't use XFASTINT when negative.
---

diff --git a/src/floatfns.c b/src/floatfns.c
index 3ea82d2b309..de3e811acfc 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -648,7 +648,7 @@ DEFUN ("abs", Fabs, Sabs, 1, 1, 0,
   if (FLOATP (arg))
     IN_FLOAT (arg = make_float (fabs (XFLOAT (arg)->data)), "abs", arg);
   else if (XINT (arg) < 0)
-    XSETINT (arg, - XFASTINT (arg));
+    XSETINT (arg, - XINT (arg));
 
   return arg;
 }