try to make top level writing more SWI compatible.
This commit is contained in:
@@ -16,7 +16,7 @@
|
||||
*************************************************************************/
|
||||
|
||||
:- module('$attributes', [
|
||||
project_delayed_goals/2
|
||||
delayed_goals/4
|
||||
]).
|
||||
|
||||
prolog:get_attr(Var, Mod, Att) :-
|
||||
@@ -242,6 +242,11 @@ prolog:call_residue(Goal,Residue) :-
|
||||
call_residue(Goal,Module,Residue) :-
|
||||
call(Module:Goal).
|
||||
|
||||
|
||||
delayed_goals(G, Vs, NVs, Gs) :-
|
||||
project_delayed_goals(G),
|
||||
copy_term(G.Vs, _.NVs, Gs).
|
||||
|
||||
project_delayed_goals(G) :-
|
||||
'$undefined'(modules_with_attributes(_),attributes), !.
|
||||
project_delayed_goals(G) :-
|
||||
|
Reference in New Issue
Block a user