From a0e3027a0b1ffe9e7479b1cf21f34a2b6ed51b97 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 2 Dec 2021 15:15:40 +0530
Subject: Use string-delete instead of string-replace-substring.

For the simple task of removing spaces, string-delete is
sufficient. string-replace-substring is overkill.

* dump.scm (fix-email-id): Use string-delete instead of
string-replace-substring.
---
 dump.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index 018933b..3fad0db 100755
--- a/dump.scm
+++ b/dump.scm
@@ -290,7 +290,7 @@ INNER JOIN InbredSet USING (InbredSetId)"))
 ;; One email ID in the Investigators table has spaces in it. This
 ;; function fixes that.
 (define (fix-email-id email)
-  (string-replace-substring email " " ""))
+  (string-delete #\space email))
 
 (define (investigator-email->id email)
   (string->identifier "investigator" (fix-email-id email)))
-- 
cgit v1.2.3