Commit 4476095c authored by dave griffiths's avatar dave griffiths
Browse files

added debugging

parent 33e722e9
......@@ -109,10 +109,10 @@
(define (start request)
(msg "request")
(let ((values (url-query (request-uri request))))
(if (not (null? values)) ; do we have some parameters?
(let ((name (assq 'fn values)))
(msg values)
(if name ; is this a well formed request?
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment