From 65531dd765edadeb2fb2a83cf82df4af73100b95 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