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

doc correction, and expand paths before passing them on the command line

Browse Source 
svn: r6017

original commit: b4ad09c116
This commit is contained in:
Matthew Flatt 2007-04-22 21:33:56 +00:00
parent db3fe62e39
commit 948669c76e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -79,8 +79,8 @@
"-mode" "555" "-mode" "555"
"-volname" (path->string "-volname" (path->string
(path-replace-suffix (file-name-from-path target) #"")) (path-replace-suffix (file-name-from-path target) #""))
"-srcfolder" (path->string (path->complete-path dir)) "-srcfolder" (path->string (expand-path (path->complete-path dir)))
(path->string (path->complete-path target)))]) (path->string (expand-path (path->complete-path target))))])
((list-ref p 4) 'wait) ((list-ref p 4) 'wait)
(unless (eq? ((list-ref p 4) 'status) 'done-ok) (unless (eq? ((list-ref p 4) 'status) 'done-ok)
(error 'bundle-directory (error 'bundle-directory