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

diff --git a/src/prolog/lib/atts.pl b/src/prolog/lib/atts.pl
index 3fa4b7f3060e864b43a1fa07a6a9fef03b22113b..25a84fc50d2365f2876e9129e6df64f66f1ac3b1 100644 (file)
--- 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),