From 43418aad5d8214c1b60b080dff2c36a2caf27391 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 22 Oct 2014 21:42:23 -0700 Subject: * eval.c (eval_init): Fix incorrect, registration of repeat; it must have one optional argument. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 46c337aa..b742a282 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-10-22 Kaz Kylheku + + * eval.c (eval_init): Fix incorrect, registration of + repeat; it must have one optional argument. + 2014-10-22 Kaz Kylheku Version 100. diff --git a/eval.c b/eval.c index df8c7eb2..9c9fdf1e 100644 --- a/eval.c +++ b/eval.c @@ -3903,7 +3903,7 @@ void eval_init(void) reg_fun(intern(lit("range*"), user_package), func_n0v(range_star_v)); reg_fun(generate_s, func_n2(generate)); reg_fun(intern(lit("giterate"), user_package), func_n3o(giterate, 2)); - reg_fun(intern(lit("repeat"), user_package), func_n2o(repeat, 2)); + reg_fun(intern(lit("repeat"), user_package), func_n2o(repeat, 1)); reg_fun(intern(lit("force"), user_package), func_n1(force)); reg_fun(intern(lit("rperm"), user_package), func_n2(rperm)); reg_fun(intern(lit("perm"), user_package), func_n2o(perm, 1)); -- cgit v1.2.3