Change misleading missing license diagnostic.

* txr.c (license): Do not say that the TXR installation
might be unlicensed; there is no such licensing condition
that the license must be present at run-time.
Just state the fact of being unable to display it.

1 files changed, 3 insertions, 3 deletions

diff --git a/txr.c b/txr.c
index c0c38852..10f1f137 100644
--- a/txr.c
+++ b/txr.c
@@ -353,7 +353,7 @@ static int license(void)
 #endif
 
     if (!path_list)
-      uw_throwf(error_s, lit("Error: pattern ~a didn't match any files."),
+      uw_throwf(error_s, lit("pattern ~a didn't match any files."),
                 glob_pattern, nao);
 
     put_char(chr('\n'), std_output);
@@ -368,8 +368,8 @@ static int license(void)
 
   uw_catch (esym, eargs) {
     format(std_output,
-           lit("~a\nThis TXR installation might be unlicensed.\n"),
-           car(eargs), nao);
+           lit("~a: unable to display license file: ~a\n"),
+           prog_string, car(eargs), nao);
     retval = EXIT_FAILURE;
   }