try to make top level writing more SWI compatible.

This commit is contained in:
Vitor Santos Costa
2010-03-27 11:34:10 +00:00
parent 6d52fa371e
commit c468d8431e
2 changed files with 23 additions and 19 deletions

View File

@@ -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) :-