1 files changed, 1 insertions, 4 deletions
diff --git a/lib.c b/lib.c
index e6aa748e..817f9449 100644
--- a/lib.c
+++ b/lib.c
@@ -5965,10 +5965,7 @@ val vec_list(val list)
 {
   val vec = vector(zero, nil);
 
-  if (!listp(list))
-    uw_throwf(error_s, lit("vector-list: list expected, not ~s"), list, nao);
-
-  for (; consp(list); list = cdr(list))
+  for (; list; list = cdr(list))
     vec_push(vec, car(list));
 
   return vec;