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
This commit is contained in:
Matthew Flatt 2007-04-22 21:33:56 +00:00
parent fdf878cda5
commit b4ad09c116
2 changed files with 8 additions and 7 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

11
collects/compiler/doc.txt
View File

@ -681,12 +681,13 @@ it's a ".dmg" disk image; under Unix, it's a ".tgz" archive.
a file extension is added automatcially (using the first result a file extension is added automatcially (using the first result
of `bundle-put-file-extension+style+filters'). of `bundle-put-file-extension+style+filters').
By default, the created archive contains a directory with the same The created archive contains a directory with the same name as `dir'
name as `dir'. If `for-exe?' is true under Mac OS X, and if `dir' --- except under Mac OS X when `for-exe?' is true and `dir' contains
contains a single file, then the created disk image contains just a single a single file or directory, in which case the created disk
the file. image contains just the file or directory. The default for
`for-exe?' is #f.
Archive creation files if `dist-file' exists. Archive creation fails if `dist-file' exists.
> (bundle-put-file-extension+style+filters) > (bundle-put-file-extension+style+filters)