amalgame/commit

simplify html_showlist//1 to prevent format/3 error on dict arguments

authorJacco van Ossenbruggen
Wed Feb 19 13:07:48 2020 +0100
committerJacco van Ossenbruggen
Wed Feb 19 13:07:48 2020 +0100
commitf68378d44ea520a36a3f1163f0204a2b1fcff120
treefe93c90cf52364054fc3b8260f3d225625b1a8d5
parent33e1732f05b3ca4cfb11d7583166e2d6d2b24652
Diff style: patch stat
diff --git a/components/amalgame/util.pl b/components/amalgame/util.pl
index 9e04e48..a1c4502 100644
--- a/components/amalgame/util.pl
+++ b/components/amalgame/util.pl
@@ -33,9 +33,10 @@ html_showlist([H]) -->  html(H),!.
 html_showlist([H1,H2|Tail]) -->  html([H1,', ']), html_showlist([H2|Tail]).
 html_showlist(Dict) -->
 	{ is_dict(Dict),
-	  dict_pairs(Dict, _Tag, Pairs)
+	  dict_pairs(Dict, _Tag, Pairs),
+          pairs_keys(Pairs, Keys)
 	},
-	html_showlist(Pairs).
+	html_showlist(Keys).
 
 html_options([],_) --> !.
 html_options([R|Rs], Default) -->