42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(sdat-get-page s:session))
(define (s:delete-session)
(session:delete-session s:session (sdat-get-session-key s:session)))
(define (s:call page . partsl)
(if (null? partsl)
(session:call s:session page)
(session:call s:session page (car partsl))))
(define (s:link-to page . params)
(session:link-to s:session page params))
(define (s:get-param key)
(session:get-param s:session key))
|
|
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(sdat-get-page s:session))
(define (s:delete-session)
(session:delete-session s:session (sdat-get-session-key s:session)))
(define (s:call page . partsl)
(if (null? partsl)
(session:call s:session page #f)
(session:call s:session page (car partsl))))
(define (s:link-to page . params)
(session:link-to s:session page params))
(define (s:get-param key)
(session:get-param s:session key))
|