From 960d5e602c3074afea907b35686482393ada6255 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 30 Mar 2018 12:55:29 -0700 Subject: eval: add missing checks in fun operator. * eval.c (do_expand): When traversing (fun ...) operator, warn if the function isn't defined or if it is being applied to a special operator. --- eval.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/eval.c b/eval.c index 73e45fc9..399c61c4 100644 --- a/eval.c +++ b/eval.c @@ -4470,6 +4470,19 @@ again: val arg_ex = expand(arg, menv); return rlcp(list(sym, arg_ex, nao), form); } + if (!lookup_fun(menv, arg)) { + if (special_operator_p(arg)) + eval_warn(last_form_expanded, + lit("fun used on special operator ~s"), arg, nao); + else if (!bindable(arg)) + eval_warn(last_form_expanded, + lit("~s appears in operator position"), arg, nao); + else + eval_defr_warn(last_form_expanded, + cons(fun_s, arg), + lit("unbound function ~s"), + arg, nao); + } return form; } else if (sym == quote_s || sym == dvbind_s) { return form; -- cgit v1.2.3