From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 3 Sep 2022 07:39:41 +0000 (+0300)
Subject: FIXED: hide predicates starting with '$' in sweep-find-predicate
X-Git-Tag: v0.2.0~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fa11fdcddceb1c41c9a7e66f190c1e0c3686cf2;p=sweep.git

FIXED: hide predicates starting with '$' in sweep-find-predicate
---

diff --git a/sweep.pl b/sweep.pl
index 68343be..d0461cf 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -292,10 +292,13 @@ sweep_predicate_matches(Sub, [String|_]) :-
     sub_string(String, _, _, _, Sub).
 
 sweep_predicate_non_hidden([String|_]) :-
-    \+ sub_string(String, 0, _, _, "$").
+    \+ sub_string(String, _, _, _, ":'$").
 
 sweep_predicate_description(M:F/N, [S|T]) :-
-    sweep_predicate_description_(M, F, N, T), format(string(S), '~w:~w/~w', [M, F, N]).
+    sweep_predicate_description_(M, F, N, T),
+    format(string(S),
+           '~w:~W/~w',
+           [M, F, [quoted(true), character_escapes(true)], N]).
 
 sweep_predicate_description_(M, F, N, [D]) :-
     doc_comment(M:F/N, _, D0, _), !, atom_string(D0, D).