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

fix bad handling of undef warning

Browse Source 
fix exporting module in use_module([_|_],_).


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1480 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-12-18 17:12:33 +00:00
parent e0050ef3d7
commit b52c6d333e
4 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
pl/utils.yap
View File

@@ -429,6 +429,7 @@ unknown(V0,V) :-
'$valid_unknown_handler'(S,_) :-
'$do_error'(domain_error(flag_value,unknown+S),yap_flag(unknown,S)).
'$ask_unknown_flag'(Old) :-
recorded('$unknown','$unkonwn'(_,MyOld),_), !,
'$cleanup_unknwon_handler'(MyOld,Old).
@@ -452,10 +453,10 @@ unknown(V0,V) :-
'$program_continuation'(PMod,PName,PAr),
'$do_error'(existence_error(procedure,Name/Arity),context(Mod:Goal,PMod:PName/PAr)).
'$unknown_warning'(P) :-
P=M:F,
functor(F,Na,Ar),
'$print_message'(error,error(existence_error(procedure,M:Na/Ar), [P])),
'$unknown_warning'(Mod:Goal) :-
functor(Goal,Name,Arity),
'$program_continuation'(PMod,PName,PAr),
'$print_message'(error,error(existence_error(procedure,Name/Ar), context(Mod:Goal,PMod:PName/PAr))),
fail.
%%% Some "dirty" predicates