aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-12-02 15:15:40 +0530
committerArun Isaac2021-12-02 15:36:40 +0530
commita0e3027a0b1ffe9e7479b1cf21f34a2b6ed51b97 (patch)
treeaddfe6a861f7c34206a05f39c8d4a58640bb7266
parent08ed5b9c842197e77a9dfb0072afc611fd24fcc0 (diff)
downloadgn-transform-databases-a0e3027a0b1ffe9e7479b1cf21f34a2b6ed51b97.tar.gz
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.
-rwxr-xr-xdump.scm2
1 files changed, 1 insertions, 1 deletions
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)))