diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-11-30 07:17:35 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-11-30 07:17:35 -0800 |
commit | 4acf4217af8e9c830f89e8586e5ec62e97cb85b0 (patch) | |
tree | 9973d4761a402f5ba6fa66a70c4e57243fe104cd /lib.c | |
parent | e557f0f806badf93b36b2bf519a73830b67cf564 (diff) | |
download | txr-4acf4217af8e9c830f89e8586e5ec62e97cb85b0.tar.gz txr-4acf4217af8e9c830f89e8586e5ec62e97cb85b0.tar.bz2 txr-4acf4217af8e9c830f89e8586e5ec62e97cb85b0.zip |
Drop ctx_form param on env_vbind_special and apply.
* eval.c (env_vbind_special): Remove unused ctx_form
parameter.
(bind_args, bind_macro_params): Don't pass ctx_form to
env_vbind_special.
(apply): Remove unused ctx_form parameter.
(apply_intrinsic, applyv, mapcarv, mappendv,
lazy_mapcarv_func, mapdov, do_mapf): Don't pass nil third
argument to apply.
* eval.h (apply): Declaration updated.
* lib.c (do_juxt): Do not bind third argument of apply
to lin when currying; curry as two argument function.
(do_not): Do not pass third nil argument to apply.
Diffstat (limited to 'lib.c')
-rw-r--r-- | lib.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5447,7 +5447,7 @@ val chandv(struct args *funlist) static val do_juxt(val funcs, struct args *args) { - return mapcar(curry_123_1(func_n3(apply), args_get_list(args), nil), funcs); + return mapcar(curry_12_1(func_n2(apply), args_get_list(args)), funcs); } val juxtv(struct args *funlist) @@ -5553,7 +5553,7 @@ val orv(struct args *funlist) static val do_not(val fun, struct args *args) { - return null(apply(fun, args_get_list(args), nil)); + return null(apply(fun, args_get_list(args))); } val notf(val fun) |