internals: rename misnamed curry_* functions.

The various curry_xx_yy functions perform partial application,
not currying. The curry prefix is being renamed to pa
(partially apply).

* lib.c (remq_lazy, remql_lazy, remqual_lazy, tree_Find):
Updated.
(do_curry_12_1, do_curry_12_1_v, do_curry_12_2,
do_curry_123_1, do_curry_123_23, do_curry_123_2,
do_curry_123_3, do_curry_1234_1, do_curry_1234_34):
Renamed to do_pa_12_1, do_pa_12_1_v, do_pa_12_2, do_pa_123_1,
do_pa_123_23, do_pa_123_2, do_pa_123_3, do_pa_1234_1,
do_pa_1234_34.
(curry_12_1, curry_12_1_v, curry_12_2, curry_123_1,
curry_123_23, curry_123_2, curry_123_3, curry_1234_1,
curry_1234_34): Renamed to pa_12_1, pa_12_1_v, pa_12_2,
pa_123_1, pa_123_23, pa_123_2, pa_123_3, pa_1234_1,
pa_1234_34.
(transposev, do_juxt): Updated.

* lib.h: Declarations renamed.

* eval.c (subst_vars, qquote_init, expand_catch, weavev):
Updated.

* filter.c (get_filter, build_filter_from_list,
filter_string_tree, filter_init): Updated.

* match.c (tx_subst_vars, do_txeval, v_freeform, v_bind,
v_throw, v_deffilter, v_assert, h_assert): Updated.

* parser.y (gather_clause): Updated.

* regex.c (regex_range_full_fun, regex_range_left_fun,
regex_range_right_fun, regex_range_search_fun): Updated.

* stream.c (open_files, open_files_star): Updated.

* txr.c (txr_main): Updated.

* unwind.c (me_defex): Updated.

1 files changed, 4 insertions, 4 deletions

diff --git a/stream.c b/stream.c
index 7acabe82..0e19ab73 100644
--- a/stream.c
+++ b/stream.c
@@ -4575,8 +4575,8 @@ static val open_files(val file_list, val substitute_stream, val mode)
   if (nilp(file_list) && substitute_stream) {
     return substitute_stream;
   } else if (mode) {
-    return make_catenated_stream(mapcar(curry_12_1(func_n2o(open_file, 1),
-                                                   mode), file_list));
+    return make_catenated_stream(mapcar(pa_12_1(func_n2o(open_file, 1),
+                                                mode), file_list));
   } else {
     return make_catenated_stream(mapcar(func_n2o(open_file, 1), file_list));
   }
@@ -4590,8 +4590,8 @@ static val open_files_star(val file_list, val substitute_stream, val mode)
   if (nilp(file_list) && substitute_stream) {
     return substitute_stream;
   } else if (mode) {
-    return make_catenated_stream(lazy_mapcar(curry_12_1(func_n2o(open_file, 1),
-                                                        mode), file_list));
+    return make_catenated_stream(lazy_mapcar(pa_12_1(func_n2o(open_file, 1),
+                                                     mode), file_list));
   } else {
     return make_catenated_stream(lazy_mapcar(func_n2o(open_file, 1), file_list));
   }