expander: fun: misleading diagnostic.

* eval.c (do_expand): argument of fun is not in "operator
position"; fixed wording.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 8fb645fc..90ec43af 100644
--- a/eval.c
+++ b/eval.c
@@ -4811,7 +4811,7 @@ again:
                     lit("fun used on special operator ~s"), arg, nao);
         else if (!bindable(arg))
           eval_warn(uw_last_form_expanded(),
-                    lit("~s appears in operator position"), arg, nao);
+                    lit("fun expects function, not ~s"), arg, nao);
         else
           eval_defr_warn(uw_last_form_expanded(),
                          cons(fun_s, arg),