From b1e0c7df542ae734fc248000a9b938fb6142776e Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Thu, 13 Mar 2003 11:32:59 +0000
Subject: [PATCH] Add GET-SESSION

---
 scheme/httpd/surflets/surflet-handler.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 03a5c00..1a94e34 100644
--- 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)