From fa14bd3eccbd211c16dc7ecc06d3132f9f9539a2 Mon Sep 17 00:00:00 2001 From: Kaz Kyheku Date: Tue, 17 Mar 2020 22:45:05 -0700 Subject: 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. --- unwind.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index 478ac5a4..0f9ffe63 100644 --- a/unwind.c +++ b/unwind.c @@ -955,7 +955,7 @@ static val me_defex(val form, val menv) eval_error(form, lit("defex: arguments must all be symbols"), nao); return cons(intern(lit("register-exception-subtypes"), user_package), - mapcar(curry_12_2(list_f, quote_s), types)); + mapcar(pa_12_2(list_f, quote_s), types)); } static val exception_subtype_map(void) -- cgit v1.2.3