scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add GET-BINDINGS: gets bindings out of REQUEST

This commit is contained in:
interp 2002-09-29 13:43:08 +00:00
parent bdf62cbf05
commit 06c8b5ea5d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/surflets.scm
View File

@ -36,6 +36,8 @@
;;; This only works for GET and POST methods. ;;; This only works for GET and POST methods.
(define form-query parse-html-form-query) (define form-query parse-html-form-query)
(define (get-bindings request)
(form-query (http-url:search (request:url request))))
(define (extract-bindings bindings key) (define (extract-bindings bindings key)
(let ((key (if (symbol? key) (symbol->string key) key))) (let ((key (if (symbol? key) (symbol->string key) key)))