From f8ca8f36770a3a726131ecc0552fbb267ce4d2d7 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 8 Nov 2010 09:38:24 -0700 Subject: [PATCH] Fixing undefined in unpack-tgz --- src/gracket/get-libs.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/gracket/get-libs.rkt b/src/gracket/get-libs.rkt index 3c6074282b..713b7b93dd 100644 --- a/src/gracket/get-libs.rkt +++ b/src/gracket/get-libs.rkt @@ -182,14 +182,14 @@ (copy-file src dest)))) (define (unpack-tgz src dest) - (define src (path->string (path->complete-path src))) - (parameterize ([current-directory - (let-values ([(base name dir?) (split-path dest)]) base)]) - (define-values [p pout pin perr] - (subprocess - (current-output-port) (current-input-port) (current-error-port) - (find-executable-path "tar") "zxf" src)) - (subprocess-wait p))) + (let ([src (path->string (path->complete-path src))]) + (parameterize ([current-directory + (let-values ([(base name dir?) (split-path dest)]) base)]) + (define-values [p pout pin perr] + (subprocess + (current-output-port) (current-input-port) (current-error-port) + (find-executable-path "tar") "zxf" src)) + (subprocess-wait p)))) (case (mode) [(download)