From e99acd10eee692d18ff33f4a9acf403e09cf8d84 Mon Sep 17 00:00:00 2001 From: interp Date: Sat, 25 Jan 2003 13:24:22 +0000 Subject: [PATCH] Use SEND-ERROR instead of MAKE-ERROR-RESPONSE --- .../surflets/web-server/root/surflets/admin-surflets.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm index a378a16..c0c42ba 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm @@ -328,8 +328,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) (show-surflets req))