cpack_repository/commit

FIXED: resolve explicit calls that are listed public.

authorJan Wielemaker
Thu Apr 28 21:42:46 2011 +0200
committerJan Wielemaker
Thu Apr 28 21:42:46 2011 +0200
commit39c19361fae08c82a033abcbcbfb95e4606282a5
tree665a11880bea4aa60972a1e5126412dd3b4aaea0
parentc4aa5989369597f2477ffd7fc26cc2a7804c228c
Diff style: patch stat
diff --git a/lib/cpack/dependency.pl b/lib/cpack/dependency.pl
index c6ff913..a9e7889 100644
--- a/lib/cpack/dependency.pl
+++ b/lib/cpack/dependency.pl
@@ -338,7 +338,10 @@ file_calls_public_from(File, UsedFile, PI) :-
 	;   atom_to_term(PI, M:PPI, []),
 	    rdf_has(UsedFile, cpack:module, literal(M)),
 	    format(atom(Plain), '~q', [PPI]),
-	    rdf_has(UsedFile, cpack:exportsPredicate, literal(Plain))
+	    (	rdf_has(UsedFile, cpack:exportsPredicate, literal(Plain))
+	    ->	true
+	    ;	rdf_has(UsedFile, cpack:publicPredicate, literal(Plain))
+	    )
 	),
 	(   rdf_has(File, cpack:usesFile, UsedFile)
 	->  true