From a42821f72493a9c194329603c8651ecb77d3661c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 2 Feb 2008 19:43:30 +0000 Subject: [PATCH] fix use of setup-scribblings svn: r8509 --- collects/setup/setup-unit.ss | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss index 3df3110e61..daed84a4f1 100644 --- a/collects/setup/setup-unit.ss +++ b/collects/setup/setup-unit.ss @@ -753,17 +753,12 @@ (with-handlers ([exn:fail? (lambda (exn) (setup-printf "Docs failure: ~a" - (if (exn? exn) - (exn-message exn) - exn)))]) + (if (exn? exn) (exn-message exn) exn)))]) ((doc:setup-scribblings) (if no-specific-collections? #f (map cc-path ccs-to-compile)) #f (not (null? (archives))) - (lambda (what go alt) - (record-error what "Building docs" - go - alt))))) + (lambda (what go alt) (record-error what "Building docs" go alt))))) (define (render-pdf file) (define cmd @@ -807,7 +802,9 @@ ((doc:setup-scribblings) (if no-specific-collections? #f (map cc-path ccs-to-compile)) tmp-dir - #f) + #f + (lambda (what go alt) + (record-error what "Building docs" go alt))) (parameterize ([current-directory tmp-dir]) (for ([f (directory-list)] #:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))