From: Markus Triska <triska@metalevel.at>
Date: Tue, 2 Mar 2021 18:58:20 +0000 (+0100)
Subject: remove group_pairs_by_key/2, which is now provided by library(pairs)
X-Git-Tag: v0.9.0~142^2~1
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=8c5a68856630baf95d3410fdc4d0c69133de3244;p=scryer-prolog.git

remove group_pairs_by_key/2, which is now provided by library(pairs)
---

diff --git a/src/lib/clpb.pl b/src/lib/clpb.pl
index 0310e775..75a38282 100644
--- a/src/lib/clpb.pl
+++ b/src/lib/clpb.pl
@@ -49,17 +49,6 @@
    Compatibility predicates.
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 
-group_pairs_by_key([], []).
-group_pairs_by_key([M-N|T0], [M-[N|TN]|T]) :-
-    same_key(M, T0, TN, T1),
-    group_pairs_by_key(T1, T).
-
-same_key(M0, [M-N|T0], [N|TN], T) :-
-    M0 == M,
-    !,
-    same_key(M, T0, TN, T).
-same_key(_, L, [], L).
-
 must_be(What, Term) :- must_be(What, unknown(Term)-1, Term).
 
 must_be(acyclic, Where, Term) :- !,