From 8f1526b262a1be3d0b7fb24579ffc4e66c6a6189 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 5 Jun 2016 21:29:20 -0700 Subject: Fix error messages in internal function scat. * lib.c (vscat): Replace "cat-str" and "vcat" with correct name "scat". --- lib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib.c b/lib.c index 8326d34a..a547973c 100644 --- a/lib.c +++ b/lib.c @@ -3687,7 +3687,7 @@ static val vscat(val sep, va_list vl1, va_list vl2) continue; } - uw_throwf(error_s, lit("cat-str: ~s is not a character or string"), + uw_throwf(error_s, lit("scat: ~s is not a character or string"), item, nao); } @@ -3715,7 +3715,7 @@ static val vscat(val sep, va_list vl1, va_list vl2) return string_own(str); oflow: - uw_throwf(error_s, lit("vcat: string length overflow"), nao); + uw_throwf(error_s, lit("scat: string length overflow"), nao); } val scat(val sep, ...) -- cgit v1.2.3