remove all non-sxref files

svn: r10784
2008-07-15 22:46:31 +00:00 · 2008-07-15 22:46:31 +00:00 · 7de06dbbb3
commit 7de06dbbb3
parent b1e859a5c2
1 changed files with 2 additions and 1 deletions
--- a/collects/setup/scribble.ss
+++ b/collects/setup/scribble.ss
@ -554,7 +554,8 @@
             (let ([dir (doc-dest-dir doc)])
               (unless (directory-exists? dir) (make-directory dir))
               (for ([f (directory-list dir)]
-                     #:when (regexp-match? #"[.](?:html|png|js)$" (path-element->bytes f)))
+                     #:when (not (regexp-match? #"[.]sxref$"
+                                                (path-element->bytes f))))
                 (delete-file (build-path dir f)))))
           (render-time
            "render"