From 1f2e260ecee59377bd8350db8c6cfecc4201ff88 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Thu, 16 Sep 2021 20:06:01 -0400
Subject: lib: fix self name of cmp-str.

* lib.c (cmp_str): Fix self name and use it in uw_throwf call.
---
 lib.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib.c b/lib.c
index 1a681c47..534013eb 100644
--- a/lib.c
+++ b/lib.c
@@ -5897,7 +5897,7 @@ val trim_str(val str)
 
 val cmp_str(val astr, val bstr)
 {
-  val self = lit("bstr");
+  val self = lit("cmp-str");
 
   switch (TYPE_PAIR(type(astr), type(bstr))) {
   case TYPE_PAIR(LIT, LIT):
@@ -5934,8 +5934,8 @@ val cmp_str(val astr, val bstr)
       return zero;
     }
   default:
-    uw_throwf(error_s, lit("cmp-str: invalid operands ~s ~s"),
-              astr, bstr, nao);
+    uw_throwf(error_s, lit("~a: invalid operands ~s ~s"),
+              self, astr, bstr, nao);
   }
 }
 
-- 
cgit v1.2.3