scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use SEND-ERROR instead of MAKE-ERROR-RESPONSE

This commit is contained in:
interp 2003-01-25 13:24:22 +00:00
parent ac28d0c6a2
commit e99acd10ee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/web-server/root/surflets/admin-surflets.scm
View File

@ -328,8 +328,8 @@
(map car continuations)))) (map car continuations))))
(define (return-to-main-page req) (define (return-to-main-page req)
(send/finish (make-error-response (status-code moved-perm) req (send-error (status-code moved-perm) req
"admin.scm" "admin.scm"))) "admin.scm" "admin.scm"))
(define (main req) (define (main req)
(show-surflets req)) (show-surflets req))