diff options
| author | Pjotr Prins | 2023-08-23 11:21:39 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-23 11:21:39 +0200 |
| commit | 9dff66430a956f7c8fe92a600bf36c4b1895f958 (patch) | |
| tree | a2a893262ac1671c7b6cac641adfebfb85611b29 | |
| parent | c322b6e5f5011d42a657334553ce0698c567ac2c (diff) | |
| download | gn-guile-9dff66430a956f7c8fe92a600bf36c4b1895f958.tar.gz | |
Tests pass and set resolves
| -rw-r--r-- | gn/data/species.scm | 5 | ||||
| -rw-r--r-- | web/gn-uri.scm | 1 |
2 files changed, 4 insertions, 2 deletions
diff --git a/gn/data/species.scm b/gn/data/species.scm index ca3bb05..7923101 100644 --- a/gn/data/species.scm +++ b/gn/data/species.scm @@ -130,5 +130,8 @@ ("meta" . ,(mk-meta id)) ("data" . ,(mk-data id)) ("up" . ,(mk-meta "species")) - ("links" . ,(list->vector (get-group-links (gnid-species id)))) + ("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)))))) )) diff --git a/web/gn-uri.scm b/web/gn-uri.scm index de70ea7..f275bcd 100644 --- a/web/gn-uri.scm +++ b/web/gn-uri.scm @@ -34,7 +34,6 @@ "unknown" )) - (define get-version "2.0") |