copy terms to global variable blackboard, fix attribute_goals//1

2019-10-09 14:11:31 -06:00
parent 3409db010f
commit f898b98b06
12 changed files with 113 additions and 76 deletions
--- a/src/prolog/lib/atts.pl
+++ b/src/prolog/lib/atts.pl
@@ -13,8 +13,10 @@
   of a particular module, as a list of terms of the form
   Module:put_atts(V, ListOfAtts). */
 '$default_attr_list'(Module, V) -->
-    { Module:get_atts(V, Attributes) },
-    '$default_attr_list'(Attributes, Module, V).
+    (  { Module:get_atts(V, Attributes) } ->
+       '$default_attr_list'(Attributes, Module, V)
+    ;  []
+    ).

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