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

Add SESSION-ALIVE?

This commit is contained in:
interp 2003-03-10 16:37:22 +00:00
parent 3fc36e865e
commit ec341accf9
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/httpd/surflets/packages.scm
View File

@ -48,6 +48,7 @@
set-options-cache-surflets?! set-options-cache-surflets?!
get-sessions get-sessions
session-alive?
session-surflet-name session-surflet-name
session-memo session-memo
session-continuation-table session-continuation-table

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

@ -387,6 +387,11 @@
(release-lock *session-table-lock*) (release-lock *session-table-lock*)
sessions)) sessions))
;; SESSION-ALIVE? returns #t if there is a session with this id, #f
;; otherwise.
(define (session-alive? session-id)
(if (session-lookup session-id) #t #f))
;;; GET-CONTINUATIONS ;;; GET-CONTINUATIONS
;; Returns a list of all continuations of the session indicated by the ;; Returns a list of all continuations of the session indicated by the
;; SESSION-ID number (locking). The list elements are pairs of ;; SESSION-ID number (locking). The list elements are pairs of