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))
tmp-dir
#f
(lambda (what go alt)
(record-error what "Building docs" go alt)))
(make-user)
(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)))