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

original commit: 73a913f63f
This commit is contained in:
Matthew Flatt 2007-05-29 11:45:44 +00:00
parent a148d4e547
commit e4ad919f65
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" "error bundling: ~a"
(regexp-replace #rx"[\r\n]*$" (get-output-string cerr) ""))))))] (regexp-replace #rx"[\r\n]*$" (get-output-string cerr) ""))))))]
[(windows unix) [(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]) (parameterize ([current-directory base])
((if (eq? 'unix (system-type)) tar-gzip zip) target name)))] ((if (eq? 'unix (system-type)) tar-gzip zip) target name)))]
[else (error 'bundle-directory "don't know how")]))))) [else (error 'bundle-directory "don't know how")])))))