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

fix unnecesary warnings for multifile (obs from Paulo Moura).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-29 10:48:40 -05:00
parent a45da5f722
commit 2dae7fd5ef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/consult.yap
View File

@ -476,8 +476,8 @@ remove_from_path(New) :- '$check_path'(New,Path),
'$add_multifile'(File,Name,Arity,Module). '$add_multifile'(File,Name,Arity,Module).
'$add_multifile'(File,Name,Arity,Module) :- '$add_multifile'(File,Name,Arity,Module) :-
recorded('$multifile_defs','$defined'(File,Name,Arity,Module), _), !, recorded('$multifile_defs','$defined'(File,Name,Arity,Module), _), !.
print_message(warning,declaration((multifile Module:Name/Arity),ignored)). % print_message(warning,declaration((multifile Module:Name/Arity),ignored)).
'$add_multifile'(File,Name,Arity,Module) :- '$add_multifile'(File,Name,Arity,Module) :-
recordz('$multifile_defs','$defined'(File,Name,Arity,Module),_), !, recordz('$multifile_defs','$defined'(File,Name,Arity,Module),_), !,
fail. fail.