correct variable_names culprit

This commit is contained in:
Mark Thom
2019-05-08 19:58:05 -04:00
parent 3f07178312
commit 7fef8a3e86
2 changed files with 3 additions and 3 deletions

View File

@@ -1,6 +1,6 @@
[package] [package]
name = "scryer-prolog" name = "scryer-prolog"
version = "0.8.79" version = "0.8.80"
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."

View File

@@ -250,9 +250,9 @@ must_be_var_names_list_([VarName | VarNames]) :-
( nonvar(VarName), VarName = (Atom = _) -> ( nonvar(VarName), VarName = (Atom = _) ->
( atom(Atom) -> must_be_var_names_list_(VarNames) ( atom(Atom) -> must_be_var_names_list_(VarNames)
; var(Atom) -> throw(error(instantiation_error, write_term/2)) ; var(Atom) -> throw(error(instantiation_error, write_term/2))
; throw(error(domain_error(write_options, variable_names(VarName)), write_term/2)) ; throw(error(domain_error(write_options, variable_names([VarName | VarNames])), write_term/2))
) )
; throw(error(domain_error(write_options, variable_names(VarName)), write_term/2)) ; throw(error(domain_error(write_options, variable_names([VarName | VarNames])), write_term/2))
). ).
write_term(_, Options) :- write_term(_, Options) :-