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:42:50 +00:00
parent fe10f7b609
commit 7747dd4ac6
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/httpd/surflets/web-server/root/surflets/add-html.scm
View File

@ -51,9 +51,8 @@
(a (@ (href "javascript:history.go(-2)")) "New calculation (same session)")(br) (a (@ (href "javascript:history.go(-2)")) "New calculation (same session)")(br)
(a (@ (href ,new-url)) "Close this session"))))))) (a (@ (href ,new-url)) "Close this session")))))))
;; How to clear session data and go to another HTML page: ;; How to clear session data and go to another HTML page:
(send/finish (send-error (status-code moved-temp) req
(make-error-response (status-code moved-temp) req "/" "/")
"/" "/"))
)) ))
; )) ; ))
)) ))

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

@ -227,8 +227,8 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
(return-to-main-page req)) (return-to-main-page req))
(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)
;; We'll fill this out soon. ;; We'll fill this out soon.

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

@ -295,8 +295,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)
(surflets req)) (surflets req))