From ca34937d301d52c18a7a21a1081ac0c2eb7d8ce6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 22 Apr 2020 06:53:43 -0700 Subject: tags: bugfix: file-opening logic in simulated load. * tags.tl (fake-load): When the file doesn't end in .tl, we are only trying it with the .tl suffix, without falling back on the original name. And we are doing that in an ignerr, so the nil object will be used as a stream. This cause stdin to be read when the function encounters a dangling symlink. --- tags.tl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tags.tl b/tags.tl index 2f76ab0e..44f2fad5 100755 --- a/tags.tl +++ b/tags.tl @@ -100,7 +100,8 @@ (let ((*fake-load-path* path) (stream (if (ends-with ".tl" path) (open-file path) - (or (ignerr (open-file `@path.tl`)))))) + (or (ignerr (open-file `@path.tl`)) + (open-file path))))) (whilet ((obj (read stream *stderr* err-ret path)) ((neq obj err-ret))) (when (consp obj) -- cgit v1.2.3