Adding $session-destroy!.

1 files changed, 4 insertions, 1 deletions

diff --git a/simple.scm b/simple.scm
index 0627e98..b01dd01 100644
--- a/simple.scm
+++ b/simple.scm
@@ -3,7 +3,7 @@
      add-request-handler-hook! remove-request-handler-hook!
      define-page redirect-to enable-session-cookie session-cookie-setter
      session-cookie-name $session $session-set! $ page-access-denied-message
-     debug-file page-access-control server-start write-chunk)
+     debug-file page-access-control server-start write-chunk $session-destroy!)
 
 (import scheme chicken data-structures utils extras ports srfi-69 files srfi-1)
 (use posix srfi-13 tcp ports)
@@ -332,4 +332,7 @@
 (define ($session-set! var val)
   (session-set! (sid) var val))
 
+(define ($session-destroy!)
+  (session-destroy! (sid)))
+
 )