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

Merge a LET in upper LET*

This commit is contained in:
interp 2003-07-06 08:58:39 +00:00
parent 39f7addaf9
commit 477544caaa
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
scheme/httpd/surflets/bindings.scm
View File

@ -33,14 +33,15 @@
(let* ((content-length (get-content-length (let* ((content-length (get-content-length
(surflet-request-headers surflet-request))) (surflet-request-headers surflet-request)))
(input-port (surflet-request-input-port surflet-request)) (input-port (surflet-request-input-port surflet-request))
(form-data (read-string content-length input-port))) (form-data (read-string content-length input-port))
(let ((form-bindings (form-query-list form-data))) ((form-bindings (form-query-list form-data))))
(obtain-lock *cache-lock*) (obtain-lock *cache-lock*)
(set! *POST-bindings-cache* (cons (cons (make-weak-pointer surflet-request) (set! *POST-bindings-cache*
form-bindings) (cons (cons (make-weak-pointer surflet-request)
*POST-bindings-cache*)) form-bindings)
*POST-bindings-cache*))
(release-lock *cache-lock*) (release-lock *cache-lock*)
form-bindings)))) form-bindings)))
(else (else
(error "unsupported request type"))))) (error "unsupported request type")))))