From e9019eb6d9441d8450c164d20f95b82f08fb6953 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 24 Nov 2009 08:09:20 +0000 Subject: [PATCH] nicer display for variants svn: r17029 --- collects/setup/setup-unit.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss index 40be5fab54..0cd6a7f0ca 100644 --- a/collects/setup/setup-unit.ss +++ b/collects/setup/setup-unit.ss @@ -76,9 +76,8 @@ (setup-printf "version" "~a [~a]" (version) (system-type 'gc)) (setup-printf "variants" "~a" - (apply string-append - (map (lambda (s) (format " ~a" s)) - (available-mzscheme-variants)))) + (string-join (map symbol->string (available-mzscheme-variants)) + ", ")) (setup-printf "main collects" "~a" (path->string main-collects-dir)) (setup-printf "collects paths" (if (null? (current-library-collection-paths)) " empty!" ""))