# HG changeset patch
# User Arne Babenhauserheide <arne_bab@web.de>
# Date 1679523731 -3600
#      Wed Mar 22 23:22:11 2023 +0100
# Node ID bdfcbfed61f51ab3b8a18b9d24537b01cbfab689
# Parent  578ae6098bc5b964047b266516d9a5f8a9ee733c
sort slowdown, too

diff --git a/examples/evaluate-r7rs-benchmark.w b/examples/evaluate-r7rs-benchmark.w
--- a/examples/evaluate-r7rs-benchmark.w
+++ b/examples/evaluate-r7rs-benchmark.w
@@ -144,7 +144,9 @@
       pretty-print : sort guile-data (λ (x y) (string<? (car x) (car y)))
       newline
       format #t "=== ~a slowdown ===\n\n" : string-locale-titlecase project-prefix
-      pretty-print : get-multiples-alist guile-data data-min-by-test
+      pretty-print
+        sort : get-multiples-alist guile-data data-min-by-test
+             λ (x y) (string<? (car x) (car y))
       newline
       format #t "=== ~a Geometric Mean slowdown (successful tests / total tests) ===\n\n" : string-locale-titlecase project-prefix
       format #t "~a (~a / ~a)"