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

correct bogus call to MAKE-DEFAULT-options

This commit is contained in:
interp 2003-01-25 16:13:42 +00:00
parent 9aea76ee83
commit 26fa1ca033
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/httpd/surflets/surflet-handler.scm
View File

@ -35,7 +35,7 @@
;; (HTTP-)RESPONSE. SURFLET-PATH is a string pointing to the real ;; (HTTP-)RESPONSE. SURFLET-PATH is a string pointing to the real
;; directory where the SUrflets are searched. ;; directory where the SUrflets are searched.
(define (surflet-handler surflet-path) (define (surflet-handler surflet-path)
(set-thread-fluid! *options* (make-default-options surflet-path #f)) (set-thread-fluid! *options* (make-default-options surflet-path))
(lambda (path req) (lambda (path req)
(if (pair? path) ; need at least one element (if (pair? path) ; need at least one element
(let ((request-method (request-method req)) (let ((request-method (request-method req))
@ -393,12 +393,12 @@
(define (delete-continuation! session-id continuation-id) (define (delete-continuation! session-id continuation-id)
(let ((session (session-lookup session-id))) (let ((session (session-lookup session-id)))
(if session (if session
(let ((continuation-table-lock (session-continuation-table-lock session)) (let ((continuation-table-lock (session-continuation-table-lock session)))
(continuation-table (session-continuation-table session))
(continuations '()))
(obtain-lock continuation-table-lock) (obtain-lock continuation-table-lock)
(if (table-ref continuation-table continuation-id) (let ((continuation-table (session-continuation-table session))
(table-set! continuation-table continuation-id #f)) (continuations '()))
(if (table-ref continuation-table continuation-id)
(table-set! continuation-table continuation-id #f)))
(release-lock continuation-table-lock))))) (release-lock continuation-table-lock)))))
;;; SET-SURFLET-DATA!, GET-SURFLET-DATA ;;; SET-SURFLET-DATA!, GET-SURFLET-DATA