[nongnu] elpa/sweeprolog e7976af30c 2/6: FIXED: sweeprolog-identifier-at-point could return unbound module

[ELPA Syncer]

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

    FIXED: sweeprolog-identifier-at-point could return unbound module
---
 sweep.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index 1fcdf02e40..525ab6e178 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -96,7 +96,7 @@
 
 :- multifile prolog:xref_source_time/2,
              prolog:xref_open_source/2,
-             prolog:xref_open_source/2,
+             prolog:xref_close_source/2,
              prolog:quasi_quotation_syntax/2.
 
 prolog:quasi_quotation_syntax(graphql, library(http/graphql)).
@@ -305,7 +305,10 @@ sweep_handle_identifier_at_point_goal(_Path, _M0, Extern, 
Goal) :-
     sweep_is_extern(Extern, M),
     !,
     pi_head(PI, Goal),
-    asserta(sweep_current_identifier_at_point(M:PI)).
+    (   var(M)
+    ->  asserta(sweep_current_identifier_at_point(PI))
+    ;   asserta(sweep_current_identifier_at_point(M:PI))
+    ).
 sweep_handle_identifier_at_point_goal(_Path, _M0, autoload(Path), Goal) :-
     !,
     pi_head(PI, Goal),
@@ -385,7 +388,7 @@ sweep_documentation(PI0, Docs) :-
     term_string(PI1, PI0),
     (   PI1 = M:PI
     ->  true
-    ;   M=user, PI=PI1
+    ;   PI=PI1
     ),
     findall(Doc, sweep_documentation_(M, PI, Doc), Docs).