From 3bd1e3615cef47bbe3483af7ee216d55d16a8d48 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 16 Jul 2008 00:22:05 +0000 Subject: [PATCH] remove only files svn: r10785 --- collects/setup/scribble.ss | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/collects/setup/scribble.ss b/collects/setup/scribble.ss index 2af3bba7d0..e249e5c514 100644 --- a/collects/setup/scribble.ss +++ b/collects/setup/scribble.ss @@ -552,11 +552,14 @@ (when in-delta? (set-info-need-in-write?! info #t)) (unless latex-dest (let ([dir (doc-dest-dir doc)]) - (unless (directory-exists? dir) (make-directory dir)) - (for ([f (directory-list dir)] - #:when (not (regexp-match? #"[.]sxref$" - (path-element->bytes f)))) - (delete-file (build-path dir f))))) + (if (not (directory-exists? dir)) + (make-directory dir) + (for ([f (directory-list dir)] + #:when + (and (file-exists? f) + (not (regexp-match? #"[.]sxref$" + (path-element->bytes f))))) + (delete-file (build-path dir f)))))) (render-time "render" (with-record-error