* hash.c (hash_grow, make_hash, make_similar_hash, copy_hash):

Pass second argument to vector.

* lib.c (vector): Takes additional argument specifying the value
for the slots of the vector.
(vector_list, sub_vec): Pass second argument to vector.

* lib.h (vector): Declaration updated.

* eval.c (eval_init): Register vector as two-argument function
with one required arg.

* txr.1: Updated.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index c469adf4..613463c1 100644
--- a/eval.c
+++ b/eval.c
@@ -2655,7 +2655,7 @@ void eval_init(void)
   reg_fun(intern(lit("length-str-<"), user_package), func_n2(length_str_lt));
   reg_fun(intern(lit("length-str-<="), user_package), func_n2(length_str_le));
 
-  reg_fun(intern(lit("vector"), user_package), func_n1(vector));
+  reg_fun(intern(lit("vector"), user_package), func_n2o(vector, 1));
   reg_fun(intern(lit("vec"), user_package), func_n0v(vector_list));
   reg_fun(intern(lit("vectorp"), user_package), func_n1(vectorp));
   reg_fun(intern(lit("vec-set-length"), user_package), func_n2(vec_set_length));