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

Add GET-SESSION

This commit is contained in:
interp 2003-03-13 11:32:59 +00:00
parent 1caff62db0
commit b1e0c7df54
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -387,6 +387,8 @@
(release-lock *session-table-lock*) (release-lock *session-table-lock*)
sessions)) sessions))
(define get-session session-lookup)
;; SESSION-ALIVE? returns #t if there is a session with this id, #f ;; SESSION-ALIVE? returns #t if there is a session with this id, #f
;; otherwise. ;; otherwise.
(define (session-alive? session-id) (define (session-alive? session-id)