From 7747dd4ac6963938e1cfdc722146a9be508eea2f Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sat, 25 Jan 2003 13:42:50 +0000
Subject: [PATCH] Use SEND-ERROR instead of MAKE-ERROR-RESPONSE.

---
 scheme/httpd/surflets/web-server/root/surflets/add-html.scm  | 5 ++---
 .../surflets/web-server/root/surflets/admin-profiling.scm    | 4 ++--
 .../surflets/web-server/root/surflets/admin-surflets-cb.scm  | 4 ++--
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
index 1f82173..0d9cecb 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add-html.scm
@@ -51,9 +51,8 @@
 			    (a (@ (href "javascript:history.go(-2)")) "New calculation (same session)")(br)
 			    (a (@ (href ,new-url)) "Close this session")))))))
 	;; How to clear session data and go to another HTML page:
-	(send/finish
-	 (make-error-response (status-code moved-temp) req 
-			      "/" "/"))
+	(send-error (status-code moved-temp) req 
+		    "/" "/")
 	))
 ;	))
     ))
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 beb5366..8c4561e 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
@@ -227,8 +227,8 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
       (return-to-main-page req))
 
     (define (return-to-main-page req)
-      (send/finish (make-error-response (status-code moved-perm) req
-					"admin.scm" "admin.scm")))
+      (send-error (status-code moved-perm) req
+		  "admin.scm" "admin.scm"))
 
     (define (main req)
       ;; We'll fill this out soon.
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets-cb.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets-cb.scm
index 48cf49a..c4cebda 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets-cb.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets-cb.scm
@@ -295,8 +295,8 @@
 		  (map car continuations))))
 
     (define (return-to-main-page req)
-      (send/finish (make-error-response (status-code moved-perm) req
-					"admin.scm" "admin.scm")))
+      (send-error (status-code moved-perm) req
+		  "admin.scm" "admin.scm"))
     
     (define (main req)
       (surflets req))