14 lines
406 B
Racket
14 lines
406 B
Racket
#lang racket/base
|
|
(require racket/contract)
|
|
|
|
(define current-server-custodian (make-parameter #f))
|
|
|
|
;; make-servlet-custodian: -> custodian
|
|
;; create a custodian for the dynamic extent of a servlet continuation
|
|
(define (make-servlet-custodian)
|
|
(make-custodian (current-server-custodian)))
|
|
|
|
(provide/contract
|
|
[current-server-custodian (parameter/c custodian?)]
|
|
[make-servlet-custodian (-> custodian?)])
|