Use SEND-ERROR instead of MAKE-ERROR-RESPONSE

2003-01-25 13:24:22 +00:00 · 2003-01-25 13:24:22 +00:00 · e99acd10ee
parent ac28d0c6a2
commit e99acd10ee
1 changed files with 2 additions and 2 deletions
--- 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))