From 4925801b9e120cb1964152a391b57de5dd3f1e45 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 21 Oct 2002 08:34:12 +0000 Subject: [PATCH] use DEFINE-RECORD-TYPE instead of DEFINE-RECORD --- .../web-server/root/surflets/admin-profiling.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm index 177fd4c..bec467d 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm @@ -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))