emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/sweeprolog abdd68164a 2/7: ; (sweep_replace_term_r/12): Fi


From: ELPA Syncer
Subject: [nongnu] elpa/sweeprolog abdd68164a 2/7: ; (sweep_replace_term_r/12): Fix qualified head classification
Date: Wed, 27 Sep 2023 16:01:32 -0400 (EDT)

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

    ; (sweep_replace_term_r/12): Fix qualified head classification
---
 sweep.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sweep.pl b/sweep.pl
index b602c0b514..fa16037f4c 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -1358,7 +1358,7 @@ sweep_replace_term_r(term_position(From, To, _, _, 
ArgsPos), Term, FileName, Mod
         ),
         (   Functor = ':',
             atom(Left),
-            State0 = goal(_)
+            member(State0, [goal(_),head])
         ->  Module = Left,
             LeftState = module,
             RightState = State0



reply via email to

[Prev in Thread] Current Thread [Next in Thread]