Fix open/3-4 predicates error term when the stream argument is bound

This commit is contained in:
Paulo Moura
2021-05-09 19:21:21 +01:00
parent 9b483d381f
commit 73c09e3365

View File

@@ -1450,7 +1450,7 @@ open(SourceSink, Mode, Stream, StreamOptions) :-
; \+ atom(Mode) ->
throw(error(type_error(atom, Mode), open/4)) % 8.11.5.3d)
; nonvar(Stream) ->
throw(error(type_error(variable, Stream), open/4)) % 8.11.5.3f)
throw(error(uninstantiation_error(Stream), open/4)) % 8.11.5.3f)
;
parse_stream_options(StreamOptions, [Alias, EOFAction, Reposition, Type], open/4),
'$open'(SourceSink, Mode, Stream, Alias, EOFAction, Reposition, Type)