From 8a50bb984c612769976b83cd186fa0edfddcd9da Mon Sep 17 00:00:00 2001
From: Thomas Hintz <t@thintz.com>
Date: Wed, 29 Apr 2015 10:48:55 -0700
Subject: [PATCH] Adding $session-destroy!.

---
 simple.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)))
+
 )