Return SPARQL response

1 files changed, 7 insertions, 3 deletions

diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
index 1219f52..71ad79c 100755
--- a/gn3-guile/web/webserver.scm
+++ b/gn3-guile/web/webserver.scm
@@ -71,12 +71,16 @@
 (define (sparql-exec query)
   (sparql-scm query))
 
-(define (sparql-results query)
-  (cdr (assoc "bindings" (cdr (assoc "results" (sparql-exec query)
+(define (sparql-names response)
+  (cdr (assoc "vars" (cdr (assoc "head" response))))
+  )
+
+(define (sparql-results response)
+  (cdr (assoc "bindings" (cdr (assoc "results" response
   )))))
 
 (define (sparql-species)
-  (sparql-results "
+  (sparql-exec "
 PREFIX gn: <http://genenetwork.org/>
 PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>