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
(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")))))