From f233d4776a8b71f2f0ea714c139bb1f871f80f73 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 12 Mar 2017 10:32:25 -0700 Subject: match-fun: report error using external name. * match.c (match_fun): Report self as match-fun in error message. --- match.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/match.c b/match.c index 1283bd73..66c376a6 100644 --- a/match.c +++ b/match.c @@ -4581,7 +4581,7 @@ val match_fun(val name, val args, val input_in, val files_in) debug_return (nil); if (ret == decline_k) - sem_error(nil, lit("match_fun: function ~s not found"), name, nao); + sem_error(nil, lit("match-fun: function ~s not found"), name, nao); debug_return (cons(c.bindings, if3(c.data, cons(c.data, c.data_lineno), t))); -- cgit v1.2.3