Ticket #994: fix-session-del-on-first-item.patch
File fix-session-del-on-first-item.patch, 527 bytes (added by , 11 years ago) |
---|
-
http-session.scm
146 146 (session-item-bindings (get-session-item sid))) 147 147 148 148 (define (session-del! sid var) 149 (alist-delete! var (session-bindings sid))) 149 (let ((sitem (get-session-item sid))) 150 (session-item-bindings-set! 151 sitem 152 (alist-delete! var (session-item-bindings sitem))))) 150 153 151 154 (define (session-cleanup!) 152 155 ((session-storage-cleanup!)))