Reindent and fixing typo related to which archive was unpacked during translation

This commit is contained in:
Jay McCarthy 2012-12-01 19:31:40 -07:00
parent 54d7cf1087
commit 6c2fa8ca71

View File

@ -270,11 +270,11 @@
(unless (directory-exists? dest-dir)
(printf "Unpacking ~a\n" pkg-short)
(make-directory dest-dir)
(unpack pkg pkg-dir
(lambda (x) (printf "~a\n" x))
(lambda () dest-dir)
#f
(lambda (auto-dir main-dir file) dest-dir)))
(unpack dest 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"
@ -335,10 +335,10 @@
(printf "\tdeps ~a\n" deps)
(call-with-output-file*
(build-path pkg-dir "info.rkt")
(lambda (o)
(fprintf o "#lang setup/infotab\n")
(write `(define deps ',deps) o)))))
(build-path pkg-dir "info.rkt")
(lambda (o)
(fprintf o "#lang setup/infotab\n")
(write `(define deps ',deps) o)))))
(define pkg-pth (build-path pkg-depo pkg-depo-dir pkg-name.plt))