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

add missing path->complete-path for unix/windows bundle-directory

Browse Source 
svn: r6371
This commit is contained in:
Matthew Flatt 2007-05-29 11:45:44 +00:00
parent e4fdb8550f
commit 73a913f63f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/bundle-dist.ss
View File

@ -87,7 +87,7 @@
"error bundling: ~a"
(regexp-replace #rx"[\r\n]*$" (get-output-string cerr) ""))))))]
[(windows unix)
(let-values ([(base name dir?) (split-path dir)])
(let-values ([(base name dir?) (split-path (path->complete-path dir))])
(parameterize ([current-directory base])
((if (eq? 'unix (system-type)) tar-gzip zip) target name)))]
[else (error 'bundle-directory "don't know how")])))))