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

fix discontiguous warnings

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-02-10 23:03:25 +00:00
parent e08cef278a
commit a40dc14525
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/checker.yap
View File

@ -184,8 +184,8 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
'$handle_discontiguous'(F,A,M) :- '$handle_discontiguous'(F,A,M) :-
recorded('$discontiguous_defs','$df'(F,A,M),_), !. recorded('$discontiguous_defs','$df'(F,A,M),_), !.
'$handle_discontiguous'(F,A,M) :- '$handle_discontiguous'(F,A,M) :-
functor(Head, F, A), !, functor(Head, F, A),
'$is_multifile'(Head, M). '$is_multifile'(Head, M), !.
'$handle_discontiguous'(F,A,M) :- '$handle_discontiguous'(F,A,M) :-
'$in_this_file_before'(F,A,M), '$in_this_file_before'(F,A,M),
print_message(warning,clauses_not_together((M:F/A))). print_message(warning,clauses_not_together((M:F/A))).