suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove only files

Browse Source 
svn: r10785
This commit is contained in:
Eli Barzilay 2008-07-16 00:22:05 +00:00
parent 7de06dbbb3
commit 3bd1e3615c
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/setup/scribble.ss
View File

@ -552,11 +552,14 @@
(when in-delta? (set-info-need-in-write?! info #t)) (when in-delta? (set-info-need-in-write?! info #t))
(unless latex-dest (unless latex-dest
(let ([dir (doc-dest-dir doc)]) (let ([dir (doc-dest-dir doc)])
(unless (directory-exists? dir) (make-directory dir)) (if (not (directory-exists? dir))
(for ([f (directory-list dir)] (make-directory dir)
#:when (not (regexp-match? #"[.]sxref$" (for ([f (directory-list dir)]
(path-element->bytes f)))) #:when
(delete-file (build-path dir f))))) (and (file-exists? f)
(not (regexp-match? #"[.]sxref$"
(path-element->bytes f)))))
(delete-file (build-path dir f))))))
(render-time (render-time
"render" "render"
(with-record-error (with-record-error