From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 11 Sep 2022 15:04:07 +0000 (+0300)
Subject: FIXED: sweep_predicates_collection/2: include preds defined in user
X-Git-Tag: v0.2.0~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7327016d1543e390117375580b7d5796e8470d82;p=dict.git

FIXED: sweep_predicates_collection/2: include preds defined in user
---

diff --git a/sweep.pl b/sweep.pl
index 97241d4..3313d8c 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),