Use the time-to-live argument in really-session-adjust-timeout!

This commit is contained in:
interp 2003-03-10 13:01:45 +00:00
parent 909ed39ce2
commit 64371c9941
1 changed files with 1 additions and 2 deletions

View File

@ -335,8 +335,7 @@
(new-memo (make-default-memo))) (new-memo (make-default-memo)))
;; Do it this way: new values and then new message ;; Do it this way: new values and then new message
(set-memo:value memo (set-memo:value memo
(+ (time) (+ (time) time-to-live))
(options-session-lifetime)))
(set-memo:new-memo memo new-memo) (set-memo:new-memo memo new-memo)
;; I don't think we need locking here. Do you agree? ;; I don't think we need locking here. Do you agree?
(set-session-memo! session new-memo) (set-session-memo! session new-memo)