about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--genenetwork-development.scm7
1 files changed, 1 insertions, 6 deletions
diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 2581144..923bc23 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -280,12 +280,7 @@ genenetwork3 source from the latest commit of @var{project}."
                 (xapian-build-directory (string-append #$%xapian-directory
                                                        "/build")))
             (dynamic-wind
-              (lambda ()
-                ;; Delete xapian-build-directory in case previous
-                ;; build exited without cleaning up.
-                (when (file-exists? xapian-build-directory)
-                  (delete-file-recursively xapian-build-directory))
-                (mkdir xapian-build-directory))
+              (const #t)
               (lambda ()
                 ;; Build xapian index.
                 (setenv "PYTHONPATH" (getcwd))