`cat ~/diff-sunet/$num/log`

2003-08-01 17:40:49 +00:00 · 2003-08-01 17:40:49 +00:00 · 5214f767d7
parent 4673e0012f
commit 5214f767d7
1 changed files with 2 additions and 4 deletions
--- 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))))