From 7de06dbbb3c2ff6a8e6e9cda6fa78ae3787e376f Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 15 Jul 2008 22:46:31 +0000
Subject: [PATCH] remove all non-sxref files

svn: r10784
---
 collects/setup/scribble.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/setup/scribble.ss b/collects/setup/scribble.ss
index cbca2cfa3a..2af3bba7d0 100644
--- 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"