scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/httpd/surflets/surflet-handler.scm
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)