13 lines
509 B
Scheme
13 lines
509 B
Scheme
(module manager mzscheme
|
|
(provide (all-defined))
|
|
|
|
(define-struct manager (create-instance
|
|
adjust-timeout!
|
|
instance-lookup-data
|
|
clear-continuations!
|
|
continuation-store!
|
|
continuation-lookup))
|
|
|
|
(define-struct (exn:fail:servlet-manager:no-instance exn:fail) (expiration-handler))
|
|
(define-struct (exn:fail:servlet-manager:no-continuation exn:fail) (expiration-handler)))
|