nicer looking output

svn: r13928
This commit is contained in:
Eli Barzilay 2009-03-03 22:20:13 +00:00
parent 9297ffa2a3
commit b827890ba5

View File

@ -817,7 +817,7 @@
#:when (regexp-match? #rx#"[.]tex$" (path-element->bytes f)))
(let* ([pdf (scr:call 'run-pdflatex f
(lambda (fmt . xs)
(apply setup-printf "pdflatex" fmt xs)))]
(apply setup-printf #f fmt xs)))]
[target (build-path dest-dir pdf)])
(when (file-exists? target) (delete-file target))
(copy-file pdf target)))))