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

switch raco pkg install' to use file/untgz'

Browse Source
This commit is contained in:
Matthew Flatt 2012-11-19 16:58:04 -07:00
parent 0f47069f98
commit 68bdf190d7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet2/lib.rkt
View File

@ -18,6 +18,7 @@
racket/set racket/set
unstable/debug unstable/debug
racket/string racket/string
file/untgz
"util.rkt" "util.rkt"
"util-plt.rkt") "util-plt.rkt")
@ -60,8 +61,7 @@
(define (untar pkg pkg-dir #:strip-components [strip-components 0]) (define (untar pkg pkg-dir #:strip-components [strip-components 0])
(make-directory* pkg-dir) (make-directory* pkg-dir)
(system* (find-executable-path "tar") "-C" pkg-dir "-xvzf" pkg (untgz pkg #:dest pkg-dir #:strip-count strip-components))
"--strip-components" (number->string strip-components)))
(define (download-file! url file #:fail-okay? [fail-okay? #f]) (define (download-file! url file #:fail-okay? [fail-okay? #f])
(with-handlers (with-handlers