www

commit 5dc96910fae40efd3209587908596d5aded99397
parent 19b488e1356ced8cbeb5101c2104da6e71760e09
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Fri,  8 Nov 2013 06:58:39 -0700

distro-build: recognize timeout and exceptions as failure

original commit: 1e2c6e243afc42a75290b78d7d39dae6b2e78726

Diffstat:
M
pkgs/distro-build/drive-clients.rkt
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/pkgs/distro-build/drive-clients.rkt b/pkgs/distro-build/drive-clients.rkt
@@ -434,7 +434,8 @@
                                  (unless timeout?
                                    (set! stop? #t)))
                                (log-error "~a failed..." (client-name c))
-                               (log-error (exn-message exn)))])
+                               (log-error (exn-message exn))
+                               #f)])
          (thunk)))
      (custodian-shutdown-all cust))))