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

correct #68 in variable_names conformity tests

Browse Source
This commit is contained in:
Mark Thom
2019-05-13 23:37:03 -04:00
parent d5223b9bbd
commit e66d5c7b31
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Cargo.toml
View File

@@ -1,6 +1,6 @@
[package] [package]
name = "scryer-prolog" name = "scryer-prolog"
version = "0.8.83" version = "0.8.84"
authors = ["Mark Thom <markjordanthom@gmail.com>"] authors = ["Mark Thom <markjordanthom@gmail.com>"]
repository = "https://github.com/mthom/scryer-prolog" repository = "https://github.com/mthom/scryer-prolog"
description = "A modern Prolog implementation written mostly in Rust." description = "A modern Prolog implementation written mostly in Rust."

11
src/prolog/lib/builtins.pl
View File

@@ -247,12 +247,15 @@ must_be_var_names_list(VarNames) :-
must_be_var_names_list_([], List). must_be_var_names_list_([], List).
must_be_var_names_list_([VarName | VarNames], List) :- must_be_var_names_list_([VarName | VarNames], List) :-
( nonvar(VarName), VarName = (Atom = _) -> ( nonvar(VarName) ->
( atom(Atom) -> must_be_var_names_list_(VarNames, List) ( VarName = (Atom = _) ->
; var(Atom) -> throw(error(instantiation_error, write_term/2)) ( 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(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) :- write_term(_, Options) :-