From 2782c6b141154b3563ef0fad34c69e6cccbdf7cc Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 31 May 2023 21:46:02 +0100
Subject: Do not create xapian build directory.

* genenetwork-development.scm (build-xapian-index-gexp): Do not create
xapian build directory.
---
 genenetwork-development.scm | 7 +------
 1 file changed, 1 insertion(+), 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))
-- 
cgit v1.2.3