From 64371c99410a710159d41364aedb5e050966cfe8 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 10 Mar 2003 13:01:45 +0000 Subject: [PATCH] Use the time-to-live argument in really-session-adjust-timeout! --- scheme/httpd/surflets/surflet-handler.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 021c08c..ac66f32 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -335,8 +335,7 @@ (new-memo (make-default-memo))) ;; Do it this way: new values and then new message (set-memo:value memo - (+ (time) - (options-session-lifetime))) + (+ (time) time-to-live)) (set-memo:new-memo memo new-memo) ;; I don't think we need locking here. Do you agree? (set-session-memo! session new-memo)