summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index 9c3f1e34..cd15cd1b 100644
--- a/lib.c
+++ b/lib.c
@@ -373,7 +373,7 @@ val appendv(val lists)
for (; lists; lists = cdr(lists)) {
val item = car(lists);
- if (listp(*ptail))
+ if (!listp(*ptail))
uw_throwf(error_s, lit("append: ~s is not a list"), *ptail, nao);
list_collect_append(ptail, item);
}
@@ -2357,7 +2357,7 @@ val size_vec(val vec)
val vector_list(val list)
{
- val vec = vector(0);
+ val vec = vector(zero);
if (!listp(list))
uw_throwf(error_s, lit("vector_list: list expected, not ~s"), list, nao);