meta/planet2: fix module broken by removing a file

Use `setup/unpack' instead of `planet2/util-plt'.
This commit is contained in:
Matthew Flatt 2012-11-29 07:42:52 -07:00
parent bd16f1e302
commit b84b634359

View File

@ -10,7 +10,8 @@
planet/config
racket/system
racket/path
racket/list)
racket/list
setup/unpack)
(module+ main
(define-runtime-path root "root")
@ -269,8 +270,11 @@
(unless (directory-exists? dest-dir)
(printf "Unpacking ~a\n" pkg-short)
(make-directory dest-dir)
(local-require planet2/util-plt)
(unplt dest dest-dir))
(unpack pkg pkg-dir
(lambda (x) (printf "~a\n" x))
(lambda () dest-dir)
#f
(lambda (auto-dir main-dir file) dest-dir)))
(define pkg/no-plt
(format "~a~a"