add GET-BINDINGS: gets bindings out of REQUEST

2002-09-29 13:43:08 +00:00 · 2002-09-29 13:43:08 +00:00 · 06c8b5ea5d
parent bdf62cbf05
commit 06c8b5ea5d
1 changed files with 2 additions and 0 deletions
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@ -36,6 +36,8 @@
 ;;; This only works for GET and POST methods.

 (define form-query parse-html-form-query)
+(define (get-bindings request)
+  (form-query (http-url:search (request:url request))))

 (define (extract-bindings bindings key)
  (let ((key (if (symbol? key) (symbol->string key) key)))