suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix use of setup-scribblings

Browse Source 
svn: r8509
This commit is contained in:
Eli Barzilay 2008-02-02 19:43:30 +00:00
parent 29ea867e59
commit a42821f724
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/setup/setup-unit.ss
View File

@ -753,17 +753,12 @@
(with-handlers ([exn:fail? (lambda (exn) (with-handlers ([exn:fail? (lambda (exn)
(setup-printf (setup-printf
"Docs failure: ~a" "Docs failure: ~a"
(if (exn? exn) (if (exn? exn) (exn-message exn) exn)))])
(exn-message exn)
exn)))])
((doc:setup-scribblings) ((doc:setup-scribblings)
(if no-specific-collections? #f (map cc-path ccs-to-compile)) (if no-specific-collections? #f (map cc-path ccs-to-compile))
#f #f
(not (null? (archives))) (not (null? (archives)))
(lambda (what go alt) (lambda (what go alt) (record-error what "Building docs" go alt)))))
(record-error what "Building docs"
go
alt)))))
(define (render-pdf file) (define (render-pdf file)
(define cmd (define cmd
@ -807,7 +802,9 @@
((doc:setup-scribblings) ((doc:setup-scribblings)
(if no-specific-collections? #f (map cc-path ccs-to-compile)) (if no-specific-collections? #f (map cc-path ccs-to-compile))
tmp-dir tmp-dir
#f) #f
(lambda (what go alt)
(record-error what "Building docs" go alt)))
(parameterize ([current-directory tmp-dir]) (parameterize ([current-directory tmp-dir])
(for ([f (directory-list)] (for ([f (directory-list)]
#:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f))) #:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))