aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdump.scm4
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