diff options
| -rwxr-xr-x | dump.scm | 2 |
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))) |