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

Fixing undefined in unpack-tgz

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-08 09:38:24 -07:00
parent aaf7e32a11
commit f8ca8f3677
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gracket/get-libs.rkt
View File

@ -182,14 +182,14 @@
(copy-file src dest)))) (copy-file src dest))))
(define (unpack-tgz src dest) (define (unpack-tgz src dest)
(define src (path->string (path->complete-path src))) (let ([src (path->string (path->complete-path src))])
(parameterize ([current-directory (parameterize ([current-directory
(let-values ([(base name dir?) (split-path dest)]) base)]) (let-values ([(base name dir?) (split-path dest)]) base)])
(define-values [p pout pin perr] (define-values [p pout pin perr]
(subprocess (subprocess
(current-output-port) (current-input-port) (current-error-port) (current-output-port) (current-input-port) (current-error-port)
(find-executable-path "tar") "zxf" src)) (find-executable-path "tar") "zxf" src))
(subprocess-wait p))) (subprocess-wait p))))
(case (mode) (case (mode)
[(download) [(download)