rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revert throwing domain errors for unexpected forms of read-options (#2015)

Browse Source
This commit is contained in:
Mark
2023-09-27 18:58:45 -06:00
parent 035e214ef5
commit 40d3345cd5
1 changed files with 7 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/lib/builtins.pl
View File

@@ -721,30 +721,9 @@ parse_read_term_options(Options, OptionValues, Stub) :-
parse_options_list(Options, builtins:parse_read_term_options_, DefaultOptions, OptionValues, Stub). parse_options_list(Options, builtins:parse_read_term_options_, DefaultOptions, OptionValues, Stub).
parse_read_term_options_(singletons(Vars), singletons-Vars) :- parse_read_term_options_(singletons(Vars), singletons-Vars) :- !.
( ( var(Vars) parse_read_term_options_(variables(Vars), variables-Vars) :- !.
; '$skip_max_list'(_, _, Vars, Rs), parse_read_term_options_(variable_names(Vars), variable_names-Vars) :- !.
Rs == []
) ->
!
; throw(error(domain_error(read_option, singletons(Vars)), read_term/2))
).
parse_read_term_options_(variables(Vars), variables-Vars) :-
( ( var(Vars)
; '$skip_max_list'(_, _, Vars, Rs),
Rs == []
) ->
!
; throw(error(domain_error(read_option, variables(Vars)), read_term/2))
).
parse_read_term_options_(variable_names(Vars), variable_names-Vars) :-
( ( var(Vars)
; '$skip_max_list'(_, _, Vars, Rs),
Rs == []
) ->
!
; throw(error(domain_error(read_option, variable_names(Vars)), read_term/2))
).
parse_read_term_options_(E,_) :- parse_read_term_options_(E,_) :-
throw(error(domain_error(read_option, E), _)). throw(error(domain_error(read_option, E), _)).