From eaf96e918bbeb0a867022ceed0c6e412d06ac1e5 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 14 Jun 2011 09:02:16 +0100
Subject: [PATCH] allow multifile as an user predicate.

---
 pl/checker.yap | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pl/checker.yap b/pl/checker.yap
index 998a2d220..c0b61cd71 100644
--- a/pl/checker.yap
+++ b/pl/checker.yap
@@ -256,6 +256,10 @@ no_style_check([H|T]) :- no_style_check(H), no_style_check(T).
 '$multiple_has_been_defined'(Fil,P,M) :-
 	print_message(warning,defined_elsewhere(M:P,Fil)).
 
+multifile(P) :-
+	'$current_module'(OM),
+	'$multifile'(P, M).
+
 '$multifile'(V, _) :- var(V), !,
 	'$do_error'(instantiation_error,multifile(V)).
 '$multifile'((X,Y), M) :- !, '$multifile'(X, M), '$multifile'(Y, M).