add Addr::AttVar to address ordering

2019-02-02 12:20:39 -07:00
parent c5fbff505b
commit 8f771792b3
3 changed files with 13 additions and 12 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -81,7 +81,7 @@ get_attrs_var_check -->

 put_attrs(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_attrs((Name/Arity, Atts)) -->
    { nonvar(Atts) },