summaryrefslogtreecommitdiffstats
path: root/arith.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-09-24 12:22:20 -0700
committerKaz Kylheku <kaz@kylheku.com>2012-09-24 12:22:20 -0700
commit7458d8311b5c81177559145b1fc8576d9a99c3d3 (patch)
treefd56c3ec3f52e134106ec9a7ad36f8ba27ffb672 /arith.c
parent20bcf160207f5c4fc7a0e11bbba2adb36b74ca63 (diff)
downloadtxr-7458d8311b5c81177559145b1fc8576d9a99c3d3.tar.gz
txr-7458d8311b5c81177559145b1fc8576d9a99c3d3.tar.bz2
txr-7458d8311b5c81177559145b1fc8576d9a99c3d3.zip
* arith.c (logand): Fix incorrect return value.
Diffstat (limited to 'arith.c')
-rw-r--r--arith.c2
1 files changed, 1 insertions, 1 deletions
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)