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

remove RETURN-CONTINUATION from INSTANCE; it's not used anyway

This commit is contained in:
interp 2003-01-25 16:11:30 +00:00
parent 100ffcc010
commit 9aea76ee83
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -76,7 +76,7 @@
(make-thread-safe-counter) ; continuation counter (make-thread-safe-counter) ; continuation counter
#f)) ; surflet-data #f)) ; surflet-data
(release-lock *session-table-lock*) (release-lock *session-table-lock*)
(register-instance! session-id 'no-return) (register-instance! session-id)
(with-fatal-handler (with-fatal-handler
;; Catch conditions from get-surflet-rt-structure. ;; Catch conditions from get-surflet-rt-structure.
@ -190,7 +190,7 @@
(with-cwd surflet-path (with-cwd surflet-path
(reset (reset
(begin (begin
(register-instance! session-id 'no-return) (register-instance! session-id)
(resume req)))) (resume req))))
(bad-request path-string req))) (bad-request path-string req)))
(bad-request path-string req))) (bad-request path-string req)))
@ -516,9 +516,9 @@
;;; REGISTER-INSTANCE! ;;; REGISTER-INSTANCE!
;; Saves values for current session (in a record). ;; Saves values for current session (in a record).
(define (register-instance! session-id return-continuation) (define (register-instance! session-id)
(thread-cell-set! *instance* (thread-cell-set! *instance*
(make-instance session-id return-continuation))) (make-instance session-id)))
;;; INSTANCE-SESSION-ID ;;; INSTANCE-SESSION-ID
@ -526,10 +526,6 @@
(define (instance-session-id) (define (instance-session-id)
(really-instance-session-id (thread-cell-ref *instance*))) (really-instance-session-id (thread-cell-ref *instance*)))
;; unused
(define (instance-return-continuation)
(really-instance-return-continuation (thread-cell-ref *instance*)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; RESUME-URL ;;; RESUME-URL
@ -616,12 +612,10 @@
;;; INSTANCE: Every request corresponds to an instance. ;;; INSTANCE: Every request corresponds to an instance.
(define-record-type instance :instance (define-record-type instance :instance
(make-instance session-id return-continuation) (make-instance session-id)
instance? instance?
(session-id really-instance-session-id (session-id really-instance-session-id
set-instance-session-id!) set-instance-session-id!))
(return-continuation really-instance-return-continuation
set-instance-return-continuation!))
;;; OPTIONS: options for the surflet-handler ;;; OPTIONS: options for the surflet-handler