From 8657699b701aa19e097016146d69492b7e191833 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 28 Mar 2021 16:41:17 -0700
Subject: expander: fun: misleading diagnostic.

* eval.c (do_expand): argument of fun is not in "operator
position"; fixed wording.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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),
-- 
cgit v1.2.3