change zo-compiler cm trace-output to stick to a port, which avoids confusing output when installing nested Planet packages

svn: r15194

collects/compiler/compiler-unit.ss

@@ -149,7 +149,8 @@
                      [current-load-relative-directory dir]
                      ;; Verbose compilation manager:
                      [manager-trace-handler (if verbose?
-                                                (lambda (s) (printf "~a\n" s))
+                                                (let ([op (current-output-port)])
+                                                  (lambda (s) (fprintf op "~a\n" s)))
                                                 (manager-trace-handler))]
                      [manager-compile-notify-handler
                       (lambda (path) ((compile-notify-handler) path))])

collects/setup/plt-single-installer.ss

@@ -76,5 +76,12 @@
                            setup:option@
                            set-options@
                            setup@)))))])
-          (thread-wait thd)
-          (custodian-shutdown-all cust))))))
+          (dynamic-wind
+              void
+              (lambda ()
+                (with-handlers ([exn:break? (lambda (exn)
+                                              (break-thread thd)
+                                              (sleep 0.1)
+                                              (raise exn))])
+                  (thread-wait thd)))
+              (lambda () (custodian-shutdown-all cust))))))))