From fcf291f31d01e0ce6e821db18d0ea0b9502f679d Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 13 Jul 2023 22:15:19 -0700 Subject: 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). --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); -- cgit v1.2.3