wrap support code in modules
This commit is contained in:
@@ -1,3 +1,5 @@
|
|||||||
|
:- module('$atts', []).
|
||||||
|
|
||||||
driver(Vars, Values) :-
|
driver(Vars, Values) :-
|
||||||
iterate(Vars, Values, ListOfListsOfGoalLists),
|
iterate(Vars, Values, ListOfListsOfGoalLists),
|
||||||
!,
|
!,
|
||||||
|
|||||||
@@ -1,3 +1,5 @@
|
|||||||
|
:- module('$project_atts', [copy_term/3]).
|
||||||
|
|
||||||
'$attribute_goals_driver'(QueryVars, AttrVars) :-
|
'$attribute_goals_driver'(QueryVars, AttrVars) :-
|
||||||
gather_modules(AttrVars, Modules0, _),
|
gather_modules(AttrVars, Modules0, _),
|
||||||
sort(Modules0, Modules),
|
sort(Modules0, Modules),
|
||||||
|
|||||||
Reference in New Issue
Block a user