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

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

This commit is contained in:
interp 2003-08-01 17:40:49 +00:00
parent 4673e0012f
commit 5214f767d7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/surflet-handler.scm
View File

@ -433,10 +433,8 @@
(define (set-session-data! new-data) (define (set-session-data! new-data)
(let ((session (session-lookup (instance-session-id)))) (let ((session (session-lookup (instance-session-id))))
(if session (if session
(begin (set-session-session-data! session new-data)
(set-session-session-data! session new-data) (error "Instance no longer alive."))))
#t)
#f)))
(define (get-session-data) (define (get-session-data)
(let ((session (session-lookup (instance-session-id)))) (let ((session (session-lookup (instance-session-id))))