diff --git a/scheme/httpd/seval.scm b/scheme/httpd/seval.scm index 27b1c88..d06bd13 100644 --- a/scheme/httpd/seval.scm +++ b/scheme/httpd/seval.scm @@ -115,10 +115,15 @@ The request's body must be form-url encoded and contain a \"program=\" pai ;;; Read an HTTP request entity body from stdin. The Content-length: ;;; entity-header field of request REQ tells how many bytes this entity -;;; is. The entity should be a URI-encoded form body. Pull out the -;;; program= -;;; string, extract , uri-decode it, parse that into an s-expression, -;;; and return it. +;;; is. + +;;; We assume, that the entity is "form-url encoded" data (see +;;; parse-forms.scm for a description of this encoding). This +;;; assumption is rather strange - it may safely be made only if +;;; there's a "Content-type: application/x-www-form-urlencoded" header. + +;;; Pull out the program= string, extract , +;;; parse that into an s-expression, and return it. (define (read-request-sexp bytes iport) (let*