use DEFINE-RECORD-TYPE instead of DEFINE-RECORD

This commit is contained in:
interp 2002-10-21 08:34:12 +00:00
parent 86df9aac58
commit 4925801b9e
1 changed files with 8 additions and 6 deletions

View File

@ -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))