Merge pull request #1116 from aarroyoc/fix-open-lis

Allow all kinds of string to be processed in open/4
2021-11-28 16:18:02 -05:00
parent b96ae1bac0 7eb0669de5
commit e47aef5615
3 changed files with 9 additions and 26 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -506,7 +506,7 @@ open_file(Path, Stream) :-
    (  atom_concat(_, '.pl', Path) ->
       open(Path, read, Stream)
    ;  catch(open(Path, read, Stream),
-             error(existence_error(source_sink, Path), _),
+             error(existence_error(source_sink, _), _),
             ( atom_concat(Path, '.pl', ExtendedPath),
               open(ExtendedPath, read, Stream) )
            )