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

fixed formatting exn in drscheme tool manager

Browse Source 
svn: r7712
This commit is contained in:
Ryan Culpepper 2007-11-13 19:03:35 +00:00
parent 5c00400760
commit 39210b51af
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drscheme/private/tools.ss
View File

@ -178,10 +178,12 @@
[rest-parts (cdr parts)])
(case (car key)
((lib)
`(lib ,(substring (append string-append
(map (lambda (s)
(string-append "/" s))
(append (cdr key) rest-parts (list file)))))))
`(lib ,(string-append
(apply string-append
(map (lambda (s)
(string-append s "/"))
(append (cdr key) rest-parts)))
file)))
((planet)
`(planet ,file (,@(cdr key) ,maj ,min) ,@rest-parts)))))