From 16421480e90b4a6f97595bf7835dbde90285fd25 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 29 Mar 2023 00:14:58 +0300
Subject: Avoid prefixing 'pubmed: to an empty string

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 dump.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'dump.scm')

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
-- 
cgit v1.2.3