diff options
Diffstat (limited to 'gn')
| -rw-r--r-- | gn/data/group.scm | 7 |
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) )) |