* arith.c (abso): broken for fixnums.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 603eb60d..8caaf6a6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-12-14  Kaz Kylheku  <kaz@kylheku.com>
 
+	* arith.c (abso): broken for fixnums.
+
+2011-12-14  Kaz Kylheku  <kaz@kylheku.com>
+
 	* txr.vim: Highlight hash prefix and quote.
 
 2011-12-14  Kaz Kylheku  <kaz@kylheku.com>
diff --git a/arith.c b/arith.c
index ccc29657..14696c24 100644
--- a/arith.c
+++ b/arith.c
@@ -459,7 +459,7 @@ val abso(val anum)
     return n;
   } else {
     cnum n = c_num(anum);
-    return num(n < 0 ? n : n);
+    return num(n < 0 ? -n : n);
   }
 }