Add GET-SESSION

2003-03-13 11:32:59 +00:00 · 2003-03-13 11:32:59 +00:00 · b1e0c7df54
parent 1caff62db0
commit b1e0c7df54
1 changed files with 2 additions and 0 deletions
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@ -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)