summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-08-09 06:42:28 -0700
committerKaz Kylheku <kaz@kylheku.com>2022-08-09 06:42:28 -0700
commit5dff40875b5200e03fa3db692c035f3d7de56fe7 (patch)
tree9a1f1ab317b34ceea9674e92054fc66d34395708
parent5266d170ca6b2470dabda045b04f523e2474b41e (diff)
downloadtxr-5dff40875b5200e03fa3db692c035f3d7de56fe7.tar.gz
txr-5dff40875b5200e03fa3db692c035f3d7de56fe7.tar.bz2
txr-5dff40875b5200e03fa3db692c035f3d7de56fe7.zip
load: fix misleading error message.
* parser.c (open_txr_file): Replace "not found" wording with "unable to open" because the diagnostic covers permission errors.
-rw-r--r--parser.c2
1 files changed, 1 insertions, 1 deletions
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);