From 156935540524c07dd6236df0487335c8c0cbc060 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 30 May 2008 12:42:47 +0000
Subject: [PATCH] fix setup-scribblings for pdfs

svn: r10034
---
 collects/setup/setup-unit.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss
index 3081aa963a..2ce4689f5a 100644
--- a/collects/setup/setup-unit.ss
+++ b/collects/setup/setup-unit.ss
@@ -845,7 +845,9 @@
              tmp-dir
              #f
              (make-user)
-             (lambda (what go alt) (record-error what "Building docs" go alt)))
+             (lambda (what go alt)
+               (record-error what "Building pdf docs" go alt))
+             setup-printf)
             (parameterize ([current-directory tmp-dir])
               (for ([f (directory-list)]
                     #:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))