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:40:34 +00:00
parent 220ac99930
commit fe10f7b609
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-handler.scm
View File

@ -78,8 +78,8 @@
(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)
(handler-options req)) (handler-options req))