From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 28 Nov 2023 20:35:02 +0000 (+0100)
Subject: ; Fix error with documentation at point for nullary compounds
X-Git-Tag: V9.1.21-sweep-0.27.3~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf64c841561b7425468fefa2258a1d265f81cbb3;p=sweep.git

; Fix error with documentation at point for nullary compounds
---

diff --git a/sweep.pl b/sweep.pl
index cb99ee6..47a2a97 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),