From e7976af30c0cb9978db7864d585220a0668d05ec Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 28 Oct 2022 19:00:58 +0300 Subject: [PATCH] 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 1fcdf02..525ab6e 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). -- 2.39.2