From 0ce6478df5680a3e54a002a9eb70543e06422bf5 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 6 Aug 2023 10:08:36 +0200
Subject: Added comment

---
 gn3-guile/web/webserver.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'gn3-guile')

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)
-- 
cgit v1.2.3