Merge pull request #1065 from aarroyoc/pio-string

Disable check of atom and leverage to open/4 the domain_error
This commit is contained in:
Mark Thom
2021-11-03 13:27:45 -02:30
committed by GitHub

View File

@@ -18,8 +18,6 @@ phrase_from_file(NT, File) :-
phrase_from_file(NT, File, Options) :- phrase_from_file(NT, File, Options) :-
( var(File) -> instantiation_error(phrase_from_file/3) ( var(File) -> instantiation_error(phrase_from_file/3)
; (\+ atom(File) ; File = []) ->
domain_error(source_sink, File, phrase_from_file/3)
; must_be(list, Options), ; must_be(list, Options),
( member(Var, Options), var(Var) -> instantiation_error(phrase_from_file/3) ( member(Var, Options), var(Var) -> instantiation_error(phrase_from_file/3)
; member(type(Type), Options) -> ; member(type(Type), Options) ->