fix possible error in modules.
This commit is contained in:
parent
14d142aa10
commit
9ab7ab0a5e
@ -765,7 +765,7 @@ export_list(Module, List) :-
|
|||||||
functor(G,N0,K0),
|
functor(G,N0,K0),
|
||||||
G=..[N0|Args],
|
G=..[N0|Args],
|
||||||
G1=..[N1|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).
|
'$add_to_imports'(Tab, Mod, ModR).
|
||||||
|
|
||||||
% I assume the clause has been processed, so the
|
% I assume the clause has been processed, so the
|
||||||
|
Reference in New Issue
Block a user