Aliases - add example

1 files changed, 8 insertions, 5 deletions

diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm
index 86d163f..bc2bb29 100644
--- a/gn/db/sparql.scm
+++ b/gn/db/sparql.scm
@@ -179,12 +179,15 @@ SELECT DISTINCT ?taxon ?ncbi ?descr where {
   (memoize sparql-wd-geneids))
 
 (define (sparql-wd-gene-aliases geneids)
-  (let ([geneid (car geneids)])
-    (receive (type values)
-        (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases geneid)))
-      (map (lambda (item) (car item)) values) ;; flatten list))
+  "Returns a flattened and dedpulicated list of geneids with
+(sparql-wd-gene-aliases '(\"Q14860079\" \"Q24420953\"))
+"
+  (map (lambda (geneid)
+         (receive (type values)
+             (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases (pk geneid))))
+           (map (lambda (item) (car item)) values) ;; flatten list))
       )
-  ))
+  ) geneids))
 
 #!
 gn:Mus_musculus rdf:type gnc:species .