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.

1 files changed, 2 insertions, 1 deletions

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)