From 7b9cd25527f9d7b4721e8e890d8340497c71e2ef Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Fri, 14 Jan 2011 10:27:23 -0700 Subject: [PATCH] Fix doc making hang on error --- collects/setup/scribble.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/setup/scribble.rkt b/collects/setup/scribble.rkt index 056ce182a9..b07d45c50a 100644 --- a/collects/setup/scribble.rkt +++ b/collects/setup/scribble.rkt @@ -139,7 +139,7 @@ docs (lambda (x) (s-exp->fasl (serialize x))) (lambda (work r outstr errstr) (printf "~a" outstr) (printf "~a" errstr) (deserialize (fasl->s-exp r))) - (lambda (work errmsg outstr errstr) (parallel-do-default-error-handler work errmsg outstr errstr) #f) + (lambda (work errmsg outstr errstr) (parallel-do-default-error-handler work errmsg outstr errstr) #t) (define-worker (get-doc-info-worker workerid program-name verbosev only-dirs latex-dest auto-main? auto-user?) (define ((get-doc-info-local program-name only-dirs latex-dest auto-main? auto-user?) doc) (define (setup-printf subpart formatstr . rest) @@ -326,7 +326,7 @@ (printf "~a" outstr) (printf "~a" errstr) (update-info i (deserialize (fasl->s-exp r)))) - (lambda (i errmsg outstr errstr) (parallel-do-default-error-handler i errmsg outstr errstr) #f) + (lambda (i errmsg outstr errstr) (parallel-do-default-error-handler i errmsg outstr errstr) #t) (define-worker (build-again!-worker2 workerid verbosev latex-dest) (define (with-record-error cc go fail-k) (with-handlers ([exn:fail?