diff options
| -rwxr-xr-x | gn3-guile/web/webserver.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm index a04fd37..ce754d8 100755 --- a/gn3-guile/web/webserver.scm +++ b/gn3-guile/web/webserver.scm @@ -27,6 +27,8 @@ (web uri) (fibers web server)) +;; basically lifted from https://lispdreams.wordpress.com/2016/04/08/lisp-memoization-techniques/ + (define (memoize f) "Simple memoize just uses alists at this point and does not expire" (let ((result-table '())) @@ -323,6 +325,11 @@ SELECT ?species ?p ?o WHERE { (string-replace-substring str " " "_") ) +(define (get-expanded-taxon id) + "Get information on a specific species, e.g. mouse" + #f + ) + (define (get-expanded-species) "Here we add information related to each species" (map (lambda (rec) |