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

meta/planet2: fix module broken by removing a file

Browse Source 
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
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/meta/planet2-index/planet-compat/main.rkt
View File

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