remove nondeterminism from put_atts as a result of lists.pl reversion

2019-10-12 19:57:08 -06:00
parent 1d41489381
commit 249b613e36
1 changed files with 1 additions and 1 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -108,7 +108,7 @@ get_attrs_var_check -->
 put_attrs(Name/Arity) -->
    put_attr(Name, Arity),
    { 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)) -->
    { nonvar(Atts) },
    put_attr(Name, Arity),