Commit 7ca8ff21 authored by Dave Griffiths's avatar Dave Griffiths
Browse files

Merge branch 'master' of github.com:nebogeo/symbai

parents c05f5a04 0e50d863
......@@ -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?
(request-dispatch
registered-requests
......
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