diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix repeated import declarations 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@337 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-30 00:27:20 +00:00
parent e5022b9c2a
commit 0fa942e238
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pl/modules.yap
View File

@ -251,9 +251,10 @@ module(N) :-
( '$check_import'(M,T,N,K) ->
% '$format'(user_error,"[vsc1: Importing ~w to ~w]~n",[M:N/K,T]),
( T = user ->
recordz('$import','$import'(M,user,N,K),_)
( recordzifnot('$import','$import'(M,user,N,K),_) -> write(importing(M,T,N,K)),nl
; true)
;
recorda('$import','$import'(M,T,N,K),_)
( recordaifnot('$import','$import'(M,T,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
)
;
true
@ -291,9 +292,9 @@ module(N) :-
% '$trace_module'(importing(M:N/K,Mod)),
% '$format'(user_error,"[vsc2: Importing ~w to ~w]~n",[M:N/K,T]),
(Mod = user ->
recordz('$import','$import'(M,user,N,K),_)
( recordzifnot('$import','$import'(M,user,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
;
recorda('$import','$import'(M,Mod,N,K),_)
( recordaifnot('$import','$import'(M,Mod,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
)
;
true