correct #68 in variable_names conformity tests
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
[package]
|
||||
name = "scryer-prolog"
|
||||
version = "0.8.83"
|
||||
version = "0.8.84"
|
||||
authors = ["Mark Thom <markjordanthom@gmail.com>"]
|
||||
repository = "https://github.com/mthom/scryer-prolog"
|
||||
description = "A modern Prolog implementation written mostly in Rust."
|
||||
|
||||
@@ -247,12 +247,15 @@ must_be_var_names_list(VarNames) :-
|
||||
|
||||
must_be_var_names_list_([], List).
|
||||
must_be_var_names_list_([VarName | VarNames], List) :-
|
||||
( nonvar(VarName), VarName = (Atom = _) ->
|
||||
( nonvar(VarName) ->
|
||||
( VarName = (Atom = _) ->
|
||||
( atom(Atom) -> must_be_var_names_list_(VarNames, List)
|
||||
; var(Atom) -> throw(error(instantiation_error, write_term/2))
|
||||
; throw(error(domain_error(write_options, variable_names(List)), write_term/2))
|
||||
)
|
||||
; throw(error(domain_error(write_options, variable_names(List)), write_term/2))
|
||||
)
|
||||
; throw(error(instantiation_error, write_term/2)) % throw(error(domain_error(write_options, variable_names(List)), write_term/2))
|
||||
).
|
||||
|
||||
write_term(_, Options) :-
|
||||
|
||||
Reference in New Issue
Block a user