aboutsummaryrefslogtreecommitdiff
path: root/gn/data
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data')
-rw-r--r--gn/data/group.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/gn/data/group.scm b/gn/data/group.scm
index 1505b21..3d31a0b 100644
--- a/gn/data/group.scm
+++ b/gn/data/group.scm
@@ -12,12 +12,13 @@
get-group-links
))
-(define (get-group-links gnid)
- "Return all the URIs that link to group info, e.g. for Mus_musculus"
+(define (get-group-links gnid func)
+ "Return all the URIs that link to group info, e.g. for Mus_musculus.
+ Uses func to transform the link - if required."
(let ([recs (car (cdr (compile-groups-meta)))]
[uri (mk-gnid gnid)])
(filter-map
(lambda (r) (if (string=? (second r) uri)
- `(("ref" . ,(mk-id (car r))))
+ (func (car r))
#f)) recs)
))