fix setup-scribblings

svn: r8789
This commit is contained in:
Eli Barzilay 2008-02-25 01:46:31 +00:00
parent 63e543c007
commit 13249d3ad0

View File

@ -802,8 +802,8 @@
(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) (make-user)
(record-error what "Building docs" go alt))) (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)))