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) ->
|
; \+ atom(Mode) ->
|
||||||
throw(error(type_error(atom, Mode), open/4)) % 8.11.5.3d)
|
throw(error(type_error(atom, Mode), open/4)) % 8.11.5.3d)
|
||||||
; nonvar(Stream) ->
|
; 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),
|
parse_stream_options(StreamOptions, [Alias, EOFAction, Reposition, Type], open/4),
|
||||||
'$open'(SourceSink, Mode, Stream, Alias, EOFAction, Reposition, Type)
|
'$open'(SourceSink, Mode, Stream, Alias, EOFAction, Reposition, Type)
|
||||||
|
|||||||
Reference in New Issue
Block a user