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

Rackety (indentation, let->define, mzscheme->racket/base, module -> #lang)

Browse Source
This commit is contained in:
Robby Findler 2011-08-19 08:01:47 -05:00
parent 5455a16f47
commit 4d5a3fa971
1 changed files with 100 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/setup/plt-single-installer.rkt
View File

@ -1,6 +1,5 @@
(module plt-single-installer mzscheme
(require mzlib/unit
mzlib/etc
#lang racket/base
(require racket/unit
;; All the rest are to get the imports for setup@:
"option-sig.rkt"
@ -17,7 +16,7 @@
(provide run-single-installer install-planet-package clean-planet-package reindex-user-documentation)
;; run-single-installer : string (-> string) -> void
;; runs the instealler on the given package
;; runs the installer on the given package
(define (run-single-installer file get-target-dir)
(run-single-installer/internal file get-target-dir #f #f #f))
@ -40,18 +39,18 @@
;; creates a separate thread, runs the installer in that thread,
;; returns when the thread completes
(define (run-single-installer/internal file get-target-dir planet-spec collections clean?)
(let ([cust (make-custodian)])
(define cust (make-custodian))
(parameterize ([current-custodian cust]
[current-namespace (make-namespace)]
[current-namespace (make-base-namespace)]
[exit-handler (lambda (v) (custodian-shutdown-all cust))])
(let ([thd
(define thd
(thread
(lambda ()
(define-unit set-options@
(import setup-option^ compiler^)
(export)
;; >>>>>>>>>>>>>> <<<<<<<<<<<<<<<
;; Here's where we tell setup the archive file!
;; Here's where we tell setup the archive file:
(unless (or clean? (not file))
(archives (list file))
(when planet-spec
@ -90,7 +89,7 @@
compiler@
setup:option@
set-options@
setup@)))))])
setup@))))))
(dynamic-wind
void
(lambda ()
@ -99,4 +98,4 @@
(sleep 0.1)
(raise exn))])
(thread-wait thd)))
(lambda () (custodian-shutdown-all cust))))))))
(lambda () (custodian-shutdown-all cust)))))