From 05df976289805d6405397d098ec07c08d3ecf66a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 12 Dec 2016 06:19:44 -0800
Subject: Improve unbound function warning.

* eval.c (do_expand): Do not use the "unbound function"
warning if the operator position isn't a symbol which
can have a function binding.
---
 eval.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index f3b94211..e9c770ef 100644
--- a/eval.c
+++ b/eval.c
@@ -3909,7 +3909,11 @@ static val do_expand(val form, val menv)
 
       if (form_ex == form && args_ex == args) {
         if (!lookup_fun(menv, sym) && !special_operator_p(sym))
-          eval_warn(last_form_expanded, lit("unbound function ~s"), sym, nao);
+          eval_warn(last_form_expanded,
+                    if3(bindable(sym_ex),
+                                 lit("unbound function ~s"),
+                                 lit("~s appears in operator position")),
+                    sym, nao);
         return form;
       }
 
-- 
cgit v1.2.3