diff options
author | Thomas Hintz <t@thintz.com> | 2015-04-29 10:48:55 -0700 |
---|---|---|
committer | Thomas Hintz <t@thintz.com> | 2015-04-29 10:48:55 -0700 |
commit | 8a50bb984c612769976b83cd186fa0edfddcd9da (patch) | |
tree | 4f16d0e4072939e9da7265d50051717a69935cd6 | |
parent | 1b2c971d479dc409abf3774f1165943a85ffa2bf (diff) | |
download | simple-8a50bb984c612769976b83cd186fa0edfddcd9da.tar.gz |
Adding $session-destroy!.
-rw-r--r-- | simple.scm | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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))) + ) |