Avoid prefixing 'pubmed: to an empty string

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 3 insertions, 1 deletions

diff --git a/dump.scm b/dump.scm
index 412df2f..eb777a0 100755
--- a/dump.scm
+++ b/dump.scm
@@ -903,7 +903,9 @@ is a <table> object."
                     (blank-node
                      (set gn:category genecategory)
                      (multiset gn:pubMedId
-                               (map (cut ontology 'pubmed: <>)
+                               (map (lambda (el) (if (string-null? el)
+                                                     ""
+                                                     (ontology 'pubmed: el)))
                                     (string-split pmid #\space)))
                      (set gn:author (regexp-substitute/global #f "@.*$"
                                                email