From bd26da74979dc4809f085cb2452873de2a41be0c Mon Sep 17 00:00:00 2001 From: interp Date: Wed, 19 Feb 2003 18:34:48 +0000 Subject: [PATCH] remove debug output --- .../web-server/root/surflets/admin-profiling.scm | 12 ++---------- 1 file changed, 2 insertions(+), 10 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 c5c5000..fce8d21 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm @@ -112,14 +112,14 @@ (return-to-main-page req)) ((returned-via? reset-return-address bindings) (reset-and-return-to-main-page req)) - ((input-field-binding gnuplot-change-button bindings) + ((returned-via? gnuplot-change-button bindings) (let ((new-gnuplot-location (input-field-value gnuplot-input-field bindings))) (if (executable? new-gnuplot-location) (begin (set! gnuplot new-gnuplot-location) (profile req (format #f "Gnuplot is now searched at ~a." gnuplot))) (profile req "Please enter a file name of an existing executable.")))) - ((input-field-binding convert-change-button bindings) + ((returned-via? convert-change-button bindings) (let ((new-use-convert? (input-field-value convert-check-box bindings)) (new-convert-location (input-field-value convert-input-field bindings))) (if (equal? use-convert? new-use-convert?) @@ -189,14 +189,6 @@ plot '~a' title 'SUrflet Profiling ~a' with lines" (zero? gnuplot-status) (run (,convert ,gnuplot-picture-name ,convert-picture-name))))) - (format #t "use-convert? ~a gnuplot-status ~a convert-status ~a -gnuplot-picture-name ~a -convert-picture-name ~a~%" - use-convert? - gnuplot-status - convert-status - gnuplot-picture-name - convert-picture-name) (delete-file gnuplot-data-file-name) (add-file-name-to-delete! gnuplot-picture-name) (if (and use-convert?