fix for multifile/1

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@742 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-01-20 15:12:45 +00:00 · 2003-01-20 15:12:45 +00:00 · 66650c39cb
parent ef3c860fdc
commit 66650c39cb
1 changed files with 3 additions and 0 deletions
--- a/pl/checker.yap
+++ b/pl/checker.yap
@ -200,6 +200,9 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
 	'$is_multifile'(S, M), !.
 '$multifile'(N/A, M) :- !,
 	'$new_multifile'(N,A,M).
+'$multifile'([H|T], M) :- !,
+	'$multifile'(H,M),
+	'$multifile'(T,M).
 '$multifile'(P, M) :-
 	'$do_error'(type_error(predicate_indicator,P),multifile(M:P)).