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

svn: r6017

original commit: b4ad09c116
This commit is contained in:
Matthew Flatt 2007-04-22 21:33:56 +00:00
parent db3fe62e39
commit 948669c76e

View File

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