Add GET-SESSION
This commit is contained in:
parent
1caff62db0
commit
b1e0c7df54
|
@ -387,6 +387,8 @@
|
|||
(release-lock *session-table-lock*)
|
||||
sessions))
|
||||
|
||||
(define get-session session-lookup)
|
||||
|
||||
;; SESSION-ALIVE? returns #t if there is a session with this id, #f
|
||||
;; otherwise.
|
||||
(define (session-alive? session-id)
|
||||
|
|
Loading…
Reference in New Issue