FIXED: instantiation errors for type(Var) in open/4 options
This addresses #1030.
This commit is contained in:
@@ -1429,7 +1429,10 @@ parse_stream_options(Options, OptionValues, Stub) :-
|
|||||||
|
|
||||||
|
|
||||||
parse_stream_options_(type(Type), type-Type) :-
|
parse_stream_options_(type(Type), type-Type) :-
|
||||||
( nonvar(Type), lists:member(Type, [text, binary]), !, true
|
( var(Type) ->
|
||||||
|
throw(error(instantiation_error, open/4)) % 8.1.3 7)
|
||||||
|
;
|
||||||
|
lists:member(Type, [text, binary]) -> true
|
||||||
;
|
;
|
||||||
throw(error(domain_error(stream_option, type(Type)), _))
|
throw(error(domain_error(stream_option, type(Type)), _))
|
||||||
).
|
).
|
||||||
|
|||||||
Reference in New Issue
Block a user