From 948669c76e9225dbe2b0ad35ce9549729986e1bc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 22 Apr 2007 21:33:56 +0000 Subject: [PATCH] doc correction, and expand paths before passing them on the command line svn: r6017 original commit: b4ad09c116d6332df1ca93cf6312ffa66f8fbbd8 --- collects/compiler/bundle-dist.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/bundle-dist.ss b/collects/compiler/bundle-dist.ss index 7976dfb7df..f908b655d5 100644 --- a/collects/compiler/bundle-dist.ss +++ b/collects/compiler/bundle-dist.ss @@ -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