From: Adrián Arroyo Calle <adrian.arroyocalle@gmail.com>
Date: Fri, 7 Jan 2022 18:28:07 +0000 (+0100)
Subject: Minor fixes
X-Git-Tag: v0.9.0^2~84^2
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=af3f676683f5e81a3b56a0f78f351cc0dec5b542;p=scryer-prolog.git

Minor fixes
---

diff --git a/src/lib/ugraphs.pl b/src/lib/ugraphs.pl
index 257d4e01..159f4c00 100644
--- a/src/lib/ugraphs.pl
+++ b/src/lib/ugraphs.pl
@@ -1,6 +1,4 @@
-/*  Part of SWI-Prolog
-
-    Author:        R.A.O'Keefe, Vitor Santos Costa, Jan Wielemaker
+/*  Author:        R.A.O'Keefe, Vitor Santos Costa, Jan Wielemaker
     E-mail:        J.Wielemaker@vu.nl
     WWW:           http://www.swi-prolog.org
     Copyright (c)  1984-2021, VU University Amsterdam
@@ -133,12 +131,10 @@ vertices_edges_to_ugraph(Vertices, Edges, Graph) :-
 
 % replace with real msort/2 when available
 msort_(List, Sorted) :-
-    maplist(item_pair, List, Pairs),
+    pairs_keys(Pairs, List),
     keysort(Pairs, SortedPairs),
     pairs_keys(SortedPairs, Sorted).
 
-item_pair(X, X-X).
-
 add_vertices(Graph, Vertices, NewGraph) :-
     % msort/2 not available in Scryer Prolog yet: msort(Vertices, V1),
     msort_(Vertices, V1),