don't append lists of attributes when binding attributed variables (#353)

2020-04-28 01:40:11 -06:00
parent ab77a1cbc0
commit 77cf0fd87b
2 changed files with 22 additions and 28 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -56,7 +56,8 @@
 '$del_attr'(Ls0, V, Attr) :-
    Ls0 = [Att | Ls1],
    nonvar(Att),
-    (  Att \= Attr -> '$del_attr_buried'(Ls0, Ls1, V, Attr)
+    (  Att \= Attr ->
+       '$del_attr_buried'(Ls0, Ls1, V, Attr)
    ;  '$enqueue_attr_var'(V),
       '$del_attr_head'(V),
       '$del_attr'(Ls1, V, Attr)