From 1f2f893c7de22ef3f64d68e0b62d43fbdb07af7c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 14 Dec 2011 14:01:55 -0800
Subject: * arith.c (abso): broken for fixnums.

---
 ChangeLog | 4 ++++
 arith.c   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 603eb60d..8caaf6a6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+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.
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);
   }
 }
 
-- 
cgit v1.2.3