[nongnu] elpa/sweeprolog 7327016d15 095/166: FIXED: sweep_predicates_collection/2: include preds defined in user

[ELPA Syncer]

branch: elpa/sweeprolog
commit 7327016d1543e390117375580b7d5796e8470d82
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    FIXED: sweep_predicates_collection/2: include preds defined in user
---
 sweep.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 97241d4f6e..3313d8cc13 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -497,14 +497,20 @@ sweep_predicates_collection(Sub, Preds) :-
             Tail1),
     findall(M:F/N,
             ( xref_defined(SourceId, H, local(_)),
-              xref_module(SourceId, M),
+              (   xref_module(SourceId, M)
+              ->  true
+              ;   M = user
+              ),
               pi_head(F/N, H)
             ),
             Tail1,
             Tail),
     findall(M:F/N,
             ( xref_defined(_, H, imported(SourceId)),
-              xref_module(SourceId, M),
+              (   xref_module(SourceId, M)
+              ->  true
+              ;   M = user
+              ),
               pi_head(F/N, H)
             ),
             Tail),