Use SEND-ERROR instead of MAKE-ERROR-RESPONSE

2003-01-25 13:40:34 +00:00 · 2003-01-25 13:40:34 +00:00 · fe10f7b609
parent 220ac99930
commit fe10f7b609
1 changed files with 2 additions and 2 deletions
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
@ -78,8 +78,8 @@


    (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)
      (handler-options req))