fix possible error in modules.

This commit is contained in:
Vítor Santos Costa 2012-04-03 16:24:14 +01:00
parent 14d142aa10
commit 9ab7ab0a5e

View File

@ -765,7 +765,7 @@ export_list(Module, List) :-
functor(G,N0,K0),
G=..[N0|Args],
G1=..[N1|Args],
recordaifnot('$import','$import'(ModR,Mod,G,G1,N0,K0),_), !,
( recordaifnot('$import','$import'(ModR,Mod,G,G1,N0,K0),_) -> true ; true ),
'$add_to_imports'(Tab, Mod, ModR).
% I assume the clause has been processed, so the