diff --git a/scheme/httpd/surflets/bindings.scm b/scheme/httpd/surflets/bindings.scm index 0647937..5035491 100644 --- a/scheme/httpd/surflets/bindings.scm +++ b/scheme/httpd/surflets/bindings.scm @@ -33,14 +33,15 @@ (let* ((content-length (get-content-length (surflet-request-headers surflet-request))) (input-port (surflet-request-input-port surflet-request)) - (form-data (read-string content-length input-port))) - (let ((form-bindings (form-query-list form-data))) - (obtain-lock *cache-lock*) - (set! *POST-bindings-cache* (cons (cons (make-weak-pointer surflet-request) - form-bindings) - *POST-bindings-cache*)) + (form-data (read-string content-length input-port)) + ((form-bindings (form-query-list form-data)))) + (obtain-lock *cache-lock*) + (set! *POST-bindings-cache* + (cons (cons (make-weak-pointer surflet-request) + form-bindings) + *POST-bindings-cache*)) (release-lock *cache-lock*) - form-bindings)))) + form-bindings))) (else (error "unsupported request type")))))