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

fix for multifile/1

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@742 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-01-20 15:12:45 +00:00
parent ef3c860fdc
commit 66650c39cb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/checker.yap
View File

@ -200,6 +200,9 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
'$is_multifile'(S, M), !. '$is_multifile'(S, M), !.
'$multifile'(N/A, M) :- !, '$multifile'(N/A, M) :- !,
'$new_multifile'(N,A,M). '$new_multifile'(N,A,M).
'$multifile'([H|T], M) :- !,
'$multifile'(H,M),
'$multifile'(T,M).
'$multifile'(P, M) :- '$multifile'(P, M) :-
'$do_error'(type_error(predicate_indicator,P),multifile(M:P)). '$do_error'(type_error(predicate_indicator,P),multifile(M:P)).