summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2015-11-30 07:17:35 -0800
committerKaz Kylheku <kaz@kylheku.com>2015-11-30 07:17:35 -0800
commit4acf4217af8e9c830f89e8586e5ec62e97cb85b0 (patch)
tree9973d4761a402f5ba6fa66a70c4e57243fe104cd /lib.c
parente557f0f806badf93b36b2bf519a73830b67cf564 (diff)
downloadtxr-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib.c b/lib.c
index bd172bf8..ee6c270d 100644
--- a/lib.c
+++ b/lib.c
@@ -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)