From 5214f767d795572607babfdf16189084e3dba8de Mon Sep 17 00:00:00 2001 From: interp Date: Fri, 1 Aug 2003 17:40:49 +0000 Subject: [PATCH] `cat ~/diff-sunet/$num/log` --- scheme/httpd/surflets/surflet-handler.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 2b3eb97..389580f 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -433,10 +433,8 @@ (define (set-session-data! new-data) (let ((session (session-lookup (instance-session-id)))) (if session - (begin - (set-session-session-data! session new-data) - #t) - #f))) + (set-session-session-data! session new-data) + (error "Instance no longer alive.")))) (define (get-session-data) (let ((session (session-lookup (instance-session-id))))