use DEFINE-RECORD-TYPE instead of DEFINE-RECORD
This commit is contained in:
parent
86df9aac58
commit
4925801b9e
|
@ -7,7 +7,7 @@
|
|||
handle-fatal-error
|
||||
httpd-responses
|
||||
(subset srfi-1 (iota))
|
||||
defrec-package
|
||||
define-record-types
|
||||
locks
|
||||
let-opt
|
||||
)
|
||||
|
@ -17,10 +17,12 @@
|
|||
;; profiling. Note to get the resulting picture, gnuplot must be
|
||||
;; installed.
|
||||
|
||||
(define-record state
|
||||
file-name
|
||||
file-names-to-delete
|
||||
(counter 0))
|
||||
(define-record-type state :state
|
||||
(make-state file-name file-names-to-delete counter)
|
||||
state?
|
||||
(file-name state:file-name set-state:file-name)
|
||||
(file-names-to-delete state:file-names-to-delete set-state:file-names-to-delete)
|
||||
(counter state:counter set-state:counter))
|
||||
|
||||
(define (state-file-name)
|
||||
(state:file-name (get-servlet-data)))
|
||||
|
@ -206,7 +208,7 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
|
|||
|
||||
(define (main req)
|
||||
;; We'll fill this out soon.
|
||||
(set-servlet-data! (make-state #f #f))
|
||||
(set-servlet-data! (make-state #f #f 0))
|
||||
(reset-profiling-state!)
|
||||
(profile req))
|
||||
|
||||
|
|
Loading…
Reference in New Issue