predicate_property(P,source).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@419 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

docs/yap.tex

@@ -4806,6 +4806,8 @@ true if the predicate is exported in the current module.
 @item public
 true if the predicate is public; note that all dynamic predicates are
 public.
+@item source
+true if source for the predicate is available.
 @end table
 
 @end table

pl/utils.yap

@@ -566,6 +566,8 @@ predicate_property(Pred,Prop) :-
 
 '$predicate_property'(P,M,_,built_in) :- 
 	'$system_predicate'(P,M), !.
+'$predicate_property'(P,M,_,source) :- 
+	( '$recordedp'(M:P,_,_) -> true ; false).
 '$predicate_property'(P,M,_,dynamic) :-
 	'$is_dynamic'(P,M).
 '$predicate_property'(P,M,_,static) :-