Added commentgn-guile

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)