print attributes of variables when attribute_goals/2 is not defined

2019-10-02 17:01:03 -06:00
parent a623061a1a
commit 04bc8ec084
3 changed files with 13 additions and 2 deletions
--- a/src/prolog/machine/project_attributes.pl
+++ b/src/prolog/machine/project_attributes.pl
@@ -40,7 +40,7 @@ call_goals([], _).
 call_goals([AttrVar|AttrVars], Module) :-
    (   catch(Module:attribute_goals(AttrVar, Goal),
 	      error(evaluation_error((Module:attribute_goals)/2), attribute_goals/2),
-	      true),
+	      atts:'$default_attr_list'(Module, AttrVar, Goal)),
 	nonvar(Goal) -> enqueue_goal(Goal)
    ;   true
    ),