[nongnu] elpa/sweeprolog bf64c84156 1/5: ; Fix error with documentation at point for nullary compounds

[ELPA Syncer]

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

    ; Fix error with documentation at point for nullary compounds
---
 sweep.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/sweep.pl b/sweep.pl
index cb99ee6392..47a2a97a2a 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -426,11 +426,14 @@ explicit_args(N, G0, G) :-
     !,
     explicit_args_(N, G0, G).
 
+explicit_args_(0, G, G) :-
+    atom(G),
+    !.
 explicit_args_(N, G0, G) :-
-    G0 =.. [F|A0],
+    compound_name_arguments(G0, F, A0),
     length(A1, N),
     append(A0, A1, A),
-    G =.. [F|A].
+    compound_name_arguments(G, F, A).
 
 sweep_short_documentation_finalize(M, PI, Index, PIString, Doc, ArgSpan) :-
     doc_comment(M:PI, Pos, OneLiner, Comment),