* lib.c (last): Bugfix: reversed null test.

2 files changed, 5 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index b5916346..b69ea1f9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2014-06-26  Kaz Kylheku  <kaz@kylheku.com>
 
+	* lib.c (last): Bugfix: reversed null test.
+
+2014-06-26  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (eval_init): register range_regex and tok_where
 	as intrinsics.
 
diff --git a/lib.c b/lib.c
index 3846d885..bb0d580f 100644
--- a/lib.c
+++ b/lib.c
@@ -421,7 +421,7 @@ loc lastcons(val list)
 val last(val list)
 {
   loc p = lastcons(list);
-  return nullocp(p) ? deref(p) : list;
+  return nullocp(p) ? list : deref(p);
 }
 
 loc ltail(loc cons)