From 7c2620a23a37fde4ef890acb444c4fbadf77dd33 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 6 Feb 2014 01:12:00 -0800 Subject: * 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. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'eval.c') 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)); -- cgit v1.2.3