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

Let FORM-QUERY return '() if the query string is #f.

This commit is contained in:
mainzelm 2003-02-26 15:55:22 +00:00
parent d5dcbace37
commit 4923286d96
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,7 +31,10 @@
;;; (("button" . "on") ("reply" . "Oh, yes")) ;;; (("button" . "on") ("reply" . "Oh, yes"))
;;; This works only for GET and POST methods. ;;; This works only for GET and POST methods.
(define form-query parse-html-form-query) (define (form-query q)
(if q
(parse-html-form-query q)
'()))
;; Bindings of POST requests can be read only once, since they are ;; Bindings of POST requests can be read only once, since they are
;; read from an input port. So we have to cache them, for the case of ;; read from an input port. So we have to cache them, for the case of