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/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1477,7 +1477,11 @@ open(SourceSink, Mode, Stream, StreamOptions) :-
       (   SourceSink = stream(S0) ->
           '$set_stream_options'(S0, Alias, EOFAction, Reposition, Type),
           Stream = S0
-       ;   '$open'(SourceSink, Mode, Stream, Alias, EOFAction, Reposition, Type)
+       ;   (
+                atom(SourceSink) ->
+                atom_chars(SourceSink, SourceSinkString)
+           ;    SourceSink = SourceSinkString
+           ), '$open'(SourceSinkString, Mode, Stream, Alias, EOFAction, Reposition, Type)
       )
    ).