add order preserving tidy_trail, fix random_labeling/2

2019-10-19 00:29:50 -06:00
parent ab9a14cc6a
commit 24e5e39c28
9 changed files with 124 additions and 101 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -20,7 +20,7 @@

 '$default_attr_list'([PG | PGs], Module, AttrVar) -->
    (  { '$module_of'(Module, PG) } -> [Module:put_atts(AttrVar, PG)]
-    ;  true
+    ;  { true }
    ),
    '$default_attr_list'(PGs, Module, AttrVar).
 '$default_attr_list'([], _, _) --> [].