From d000bc7a8bcbc0c3588c2a31a3b08e43b4dcbf5b Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 9 Aug 2022 06:42:28 -0700
Subject: load: fix misleading error message.

* parser.c (open_txr_file): Replace "not found" wording with
"unable to open" because the diagnostic covers permission errors.
---
 parser.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'parser.c')

diff --git a/parser.c b/parser.c
index e8c51f7d..de3307c0 100644
--- a/parser.c
+++ b/parser.c
@@ -658,7 +658,7 @@ except:
       if (search_dirs == nil)
 #endif
         uw_ethrowf(errno_to_file_error(errno),
-                   lit("~a: ~a not found"), self, *orig_in_resolved_out, nao);
+                   lit("~a: unable to open ~a"), self, *orig_in_resolved_out, nao);
       try_next = path_cat(pop(&search_dirs), *orig_in_resolved_out);
       open_txr_file(try_next, txr_lisp_p, orig_in_resolved_out, stream,
                     search_dirs, self);
-- 
cgit v1.2.3