scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
View File

@ -7,7 +7,7 @@
handle-fatal-error handle-fatal-error
httpd-responses httpd-responses
(subset srfi-1 (iota)) (subset srfi-1 (iota))
defrec-package define-record-types
locks locks
let-opt let-opt
) )
@ -17,10 +17,12 @@
;; profiling. Note to get the resulting picture, gnuplot must be ;; profiling. Note to get the resulting picture, gnuplot must be
;; installed. ;; installed.
(define-record state (define-record-type state :state
file-name (make-state file-name file-names-to-delete counter)
file-names-to-delete state?
(counter 0)) (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) (define (state-file-name)
(state:file-name (get-servlet-data))) (state:file-name (get-servlet-data)))
@ -206,7 +208,7 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
(define (main req) (define (main req)
;; We'll fill this out soon. ;; We'll fill this out soon.
(set-servlet-data! (make-state #f #f)) (set-servlet-data! (make-state #f #f 0))
(reset-profiling-state!) (reset-profiling-state!)
(profile req)) (profile req))