From afbbd86f316c2bfa70b86c1c51a4147a83f285ec Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 23 Aug 2023 14:23:44 +0200
Subject: Able to render group data

---
 gn/data/species.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gn/data/species.scm')

diff --git a/gn/data/species.scm b/gn/data/species.scm
index 7923101..a712bae 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -73,7 +73,7 @@
 
 (define (get-expanded-taxon-data short-name)
   "Here we add information related to one taxonomy species"
-  (call/cc (lambda (return)
+  (call/cc (lambda (return) ; use call/cc to be able to return early
              (for-each (lambda (rec)
                          (if (string=? (assoc-ref rec "shortName") short-name)
                              (return (expand-species rec))))
@@ -133,5 +133,5 @@
     ("meta-links" . ,(list->vector (get-group-links (gnid-species id)
                                                     (lambda (r) (mk-meta (url-parse-id r))))))
     ("links" . ,(list->vector (get-group-links (gnid-species id)
-                                               (lambda (r) (mk-meta (url-parse-id r))))))
+                                               (lambda (r) (mk-data (url-parse-id r))))))
   ))
-- 
cgit v1.2.3