txr, eval: eliminate some func_n1 calls.

* match.c (do_output_line, do_repeat, v_deffiler): Replace
func_n1(cdr) and func_n1(rest) with cdr_f.

* eval.c (eval_init): Replace func_n1(car) and func_n1(cdr)
with car_f and cdr_f. Should have been done in 2011 when
this was done for the registrations of car and cdr.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index e5f08407..aaf34aaf 100644
--- a/eval.c
+++ b/eval.c
@@ -6509,8 +6509,8 @@ void eval_init(void)
   reg_fun(rplacd_s, func_n2(rplacd));
   reg_fun(intern(lit("rplaca"), system_package), func_n2(sys_rplaca));
   reg_fun(intern(lit("rplacd"), system_package), func_n2(sys_rplacd));
-  reg_fun(intern(lit("first"), user_package), func_n1(car));
-  reg_fun(rest_s, func_n1(cdr));
+  reg_fun(intern(lit("first"), user_package), car_f);
+  reg_fun(rest_s, cdr_f);
   reg_fun(intern(lit("sub-list"), user_package), func_n3o(sub_list, 1));
   reg_fun(intern(lit("replace-list"), user_package), func_n4o(replace_list, 2));
   reg_fun(append_s, func_n0v(appendv));