[nongnu] elpa/sweeprolog c03ac63bdb 1/7: ; (sweep_replace_update_state/7): Fix SSU guard classification

[ELPA Syncer]

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

    ; (sweep_replace_update_state/7): Fix SSU guard classification
---
 sweep.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sweep.pl b/sweep.pl
index c62aff622b..b602c0b514 100644
--- a/sweep.pl
+++ b/sweep.pl
@@ -1397,6 +1397,8 @@ sweep_replace_update_state(_FileName, _Module, '=>', 2, 
2, clause, goal(0)) :- !
 sweep_replace_update_state(_FileName, _Module, '-->', 2, 1, clause, head) :- !.
 sweep_replace_update_state(_FileName, _Module, '-->', 2, 2, clause, goal(2)) 
:- !.
 sweep_replace_update_state(_FileName, _Module, _Functor, _Arity, _I, clause, 
data) :- !.
+sweep_replace_update_state(_FileName, _Module, ',', 2, 1, head, head) :- !.    
 %  SSU head
+sweep_replace_update_state(_FileName, _Module, ',', 2, 2, head, goal(0)) :- !. 
 %  SSU guard
 sweep_replace_update_state(_FileName, _Module, _Functor, _Arity, _I, head, 
data) :- !.
 sweep_replace_update_state(_FileName, Module, Functor, Arity, I, goal(N0), 
State) :-
     pi_head(Functor/Arity,Head),