* arith.c (logand): Fix incorrect return value.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index f8934e2c..f7bf481b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-24  Kaz Kylheku  <kaz@kylheku.com>
+
+	* arith.c (logand): Fix incorrect return value.
+
 2012-09-18  Kaz Kylheku  <kaz@kylheku.com>
 
 	* arith.c (logtest): New function.
diff --git a/arith.c b/arith.c
index 61592a5e..8e245e71 100644
--- a/arith.c
+++ b/arith.c
@@ -1621,7 +1621,7 @@ bad:
 val logtest(val a, val b)
 {
   /* TODO: optimize */
-  return logand(a, b) == zero;
+  return logand(a, b) == zero ? t : nil;
 }
 
 static val comp_trunc(val a, val bits)