; Fix error with documentation at point for nullary compounds

diff --git a/sweep.pl b/sweep.pl
index cb99ee63925fc3cfc2d429652c2aacbc69240333..47a2a97a2a52f52527e1725f6a892ce446d8339f 100644 (file)
--- 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),