diff options
| -rw-r--r-- | gn/db/sparql.scm | 13 |
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 . |