fix careless error

This commit is contained in:
Robby Findler 2013-04-04 07:36:14 -05:00
parent ecf2b16bf0
commit 13d7cc1184

View File

@ -4,7 +4,7 @@
racket/class racket/class
"plt-installer-sig.rkt" "plt-installer-sig.rkt"
(prefix-in single: "plt-single-installer.rkt") (prefix-in single: "plt-single-installer.rkt")
(prefix-in mrlib/terminal: mrlib/terminal) mrlib/terminal
string-constants) string-constants)
(provide plt-installer@) (provide plt-installer@)
@ -25,7 +25,7 @@
(λ () (λ ()
(printf "\nInstallation complete.\n") (printf "\nInstallation complete.\n")
(installer-run))]) (installer-run))])
(mrlib/terminal:in-terminal (in-terminal
(λ (custodian frame) (do-install frame)) (λ (custodian frame) (do-install frame))
#:title (string-constant plt-installer-progress-window-title) #:title (string-constant plt-installer-progress-window-title)
#:cleanup-thunk cleanup-thunk))) #:cleanup-thunk cleanup-thunk)))