38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
wrapperfunc
s:strong) errmsg) '())))
(define (s:current-page)
(sdat-get-page s:session))
(define (s:delete-session)
(session:delete-session s:session (sdat-get-sesson-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)
|
|
|
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
wrapperfunc
s:strong) errmsg) '())))
(define (s:current-page)
(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)
|