1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; Session data
; The initializers are saved in images.
(define *session-data-initializers* '())
(define (make-session-data-slot! init)
(let ((slot (length *session-data-initializers*)))
(set! *session-data-initializers* (cons init *session-data-initializers*))
(if (vector? (session-data))
(set-session-data! (list->vector
(reverse
(cons init
(reverse (vector->list (session-data))))))))
slot))
(define (session-data-ref slot)
(vector-ref (session-data) slot))
(define (session-data-set! slot value)
(vector-set! (session-data) slot value))
(define (initialize-session-data!)
(set-session-data! (list->vector (reverse *session-data-initializers*))))
|
