remove nondeterminism from put_atts as a result of lists.pl reversion
This commit is contained in:
@@ -108,7 +108,7 @@ get_attrs_var_check -->
|
|||||||
put_attrs(Name/Arity) -->
|
put_attrs(Name/Arity) -->
|
||||||
put_attr(Name, Arity),
|
put_attr(Name, Arity),
|
||||||
{ numbervars([Var, Attr], 0, _) },
|
{ numbervars([Var, Attr], 0, _) },
|
||||||
[(put_atts(Var, Attr) :- lists:maplist(put_atts(Var), Attr))].
|
[(put_atts(Var, Attr) :- lists:maplist(put_atts(Var), Attr), !)].
|
||||||
put_attrs((Name/Arity, Atts)) -->
|
put_attrs((Name/Arity, Atts)) -->
|
||||||
{ nonvar(Atts) },
|
{ nonvar(Atts) },
|
||||||
put_attr(Name, Arity),
|
put_attr(Name, Arity),
|
||||||
|
|||||||
Reference in New Issue
Block a user