summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-29 10:48:55 -0700
committerThomas Hintz <t@thintz.com>2015-04-29 10:48:55 -0700
commit8a50bb984c612769976b83cd186fa0edfddcd9da (patch)
tree4f16d0e4072939e9da7265d50051717a69935cd6
parent1b2c971d479dc409abf3774f1165943a85ffa2bf (diff)
downloadsimple-8a50bb984c612769976b83cd186fa0edfddcd9da.tar.gz
Adding $session-destroy!.
-rw-r--r--simple.scm5
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)))
+
)