From d39d327262f76f1c2de46fe7b09d6492a4c0941b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 12 Mar 2021 06:22:59 -0800 Subject: lib: fix hard-coded cat-str in diagnostic. * lib.c (cat_str_measure): Use the self parameter in diagnostics rather than cat-str, so errors are reported against the correct function. --- lib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib.c b/lib.c index 353a9614..fa430813 100644 --- a/lib.c +++ b/lib.c @@ -4795,10 +4795,10 @@ static void cat_str_measure(struct cat_str *cs, val item, int more_p, val self) return; } - uw_throwf(error_s, lit("cat-str: ~s is not a character or string"), + uw_throwf(error_s, lit("~a: ~s is not a character or string"), self, item, nao); oflow: - uw_throwf(error_s, lit("cat-str: string length overflow"), nao); + uw_throwf(error_s, lit("~a: string length overflow"), self, nao); } static void cat_str_alloc(struct cat_str *cs) -- cgit v1.2.3