correct attributed variables bugs

This commit is contained in:
Mark Thom
2019-12-03 22:59:51 -07:00
parent 738ea59e23
commit 43b39538ff
3 changed files with 21 additions and 19 deletions

View File

@@ -50,7 +50,7 @@ call_attribute_goals([Module | Modules], GoalCaller, AttrVars) :-
call_query_var_goals([], _, []).
call_query_var_goals([AttrVar|AttrVars], Module, Goals) :-
( catch(( Module:attribute_goals(AttrVar, Goals, RGoals0)
; atts:'$default_attr_list'(Module, AttrVar, RGoals0, RGoals)
, atts:'$default_attr_list'(Module, AttrVar, RGoals0, RGoals)
),
E,
( '$print_attribute_goals_exception'(Module, E),