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

fix module dereferencing.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-04-27 16:30:23 +01:00
parent 067d6d3f4f
commit 2bfc88db98
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/modules.yap
View File

@ -137,7 +137,6 @@ module(N) :-
'$import'([PS|L],_,_) :- '$import'([PS|L],_,_) :-
'$do_error'(domain_error(predicate_spec,PS),import([PS|L])). '$do_error'(domain_error(predicate_spec,PS),import([PS|L])).
$use_preds(Imports,Publics,Mod,M) :- writeln(),fail.
'$use_preds'(Imports,Publics,Mod,M) :- var(Imports), !, '$use_preds'(Imports,Publics,Mod,M) :- var(Imports), !,
'$import'(Publics,Mod,M). '$import'(Publics,Mod,M).
'$use_preds'(M:L,Publics,Mod,_) :- '$use_preds'(M:L,Publics,Mod,_) :-
@ -150,6 +149,7 @@ $use_preds(Imports,Publics,Mod,M) :- writeln(),fail.
( lists:memberchk(N/K,Publics) -> ( lists:memberchk(N/K,Publics) ->
true ; true ;
print_message(warning,import(N/K,Mod,M,private)) print_message(warning,import(N/K,Mod,M,private))
),
'$do_import'(N, K, M, Mod). '$do_import'(N, K, M, Mod).
'$use_preds'(N//K0,Publics,M,Mod) :- '$use_preds'(N//K0,Publics,M,Mod) :-
K is K0+2, K is K0+2,