rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor fixes

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2022-01-07 19:28:07 +01:00
parent abf980d603
commit af3f676683
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib/ugraphs.pl
View File

@@ -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 E-mail: J.Wielemaker@vu.nl
WWW: http://www.swi-prolog.org WWW: http://www.swi-prolog.org
Copyright (c) 1984-2021, VU University Amsterdam 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 % replace with real msort/2 when available
msort_(List, Sorted) :- msort_(List, Sorted) :-
maplist(item_pair, List, Pairs), pairs_keys(Pairs, List),
keysort(Pairs, SortedPairs), keysort(Pairs, SortedPairs),
pairs_keys(SortedPairs, Sorted). pairs_keys(SortedPairs, Sorted).
item_pair(X, X-X).
add_vertices(Graph, Vertices, NewGraph) :- add_vertices(Graph, Vertices, NewGraph) :-
% msort/2 not available in Scryer Prolog yet: msort(Vertices, V1), % msort/2 not available in Scryer Prolog yet: msort(Vertices, V1),
msort_(Vertices, V1), msort_(Vertices, V1),