From e4ad919f651c2a87a2215e0561fc46b39dc95b0b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 May 2007 11:45:44 +0000 Subject: [PATCH] add missing path->complete-path for unix/windows bundle-directory svn: r6371 original commit: 73a913f63f8dea843ed06bdbec1ba2dfe1073005 --- collects/compiler/bundle-dist.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/bundle-dist.ss b/collects/compiler/bundle-dist.ss index f908b655d5..b0e91479c6 100644 --- a/collects/compiler/bundle-dist.ss +++ b/collects/compiler/bundle-dist.ss @@ -87,7 +87,7 @@ "error bundling: ~a" (regexp-replace #rx"[\r\n]*$" (get-output-string cerr) ""))))))] [(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]) ((if (eq? 'unix (system-type)) tar-gzip zip) target name)))] [else (error 'bundle-directory "don't know how")])))))