Fix open/3-4 predicates error term when the stream argument is bound
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user