lib: avoid intern for symbol we already have.

* eval.c (eval_init): We have a repeat_s variable; no need
to call intern(lit("repeat"), user_package).

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index fe45ae89..253a8373 100644
--- a/eval.c
+++ b/eval.c
@@ -7769,7 +7769,7 @@ void eval_init(void)
   reg_fun(intern(lit("expand-right"), user_package), func_n2(expand_right));
   reg_fun(intern(lit("expand-left"), user_package), func_n2(expand_left));
   reg_fun(intern(lit("nexpand-left"), user_package), func_n2(nexpand_left));
-  reg_fun(intern(lit("repeat"), user_package), func_n2o(repeat, 1));
+  reg_fun(repeat_s, func_n2o(repeat, 1));
   reg_fun(intern(lit("pad"), user_package), func_n3o(pad, 1));
   reg_fun(intern(lit("weave"), user_package), func_n0v(weavev));
   reg_fun(force_s, func_n1(force));