suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

nicer display for variants

Browse Source 
svn: r17029
This commit is contained in:
Eli Barzilay 2009-11-24 08:09:20 +00:00
parent 212eb82314
commit e9019eb6d9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/setup/setup-unit.ss
View File

@ -76,9 +76,8 @@
(setup-printf "version" "~a [~a]" (version) (system-type 'gc)) (setup-printf "version" "~a [~a]" (version) (system-type 'gc))
(setup-printf "variants" "~a" (setup-printf "variants" "~a"
(apply string-append (string-join (map symbol->string (available-mzscheme-variants))
(map (lambda (s) (format " ~a" s)) ", "))
(available-mzscheme-variants))))
(setup-printf "main collects" "~a" (path->string main-collects-dir)) (setup-printf "main collects" "~a" (path->string main-collects-dir))
(setup-printf "collects paths" (setup-printf "collects paths"
(if (null? (current-library-collection-paths)) " empty!" "")) (if (null? (current-library-collection-paths)) " empty!" ""))