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

small brace typo

This commit is contained in:
interp 2002-09-24 08:47:33 +00:00
parent 0d9b85d156
commit 9328d1fa82
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/surflet-handler.scm
View File

@ -47,7 +47,7 @@
(reset-plugin-cache!) (reset-plugin-cache!)
(http-syslog (syslog-level debug) (http-syslog (syslog-level debug)
"servlet-handler: clearing instance table") "servlet-handler: clearing instance table")
(reset-instance-table!)) (reset-instance-table!)
(make-http-error-response http-status/accepted req "plugin cache cleared")) (make-http-error-response http-status/accepted req "plugin cache cleared"))
((or (string=? request-method "GET") ((or (string=? request-method "GET")
; (string=? request-method "POST")) ; do this at later time ; (string=? request-method "POST")) ; do this at later time
@ -120,10 +120,10 @@ You can try starting at the <A HREF=~a>beginning</a>."
(begin (begin
(register-session! instance-id 'no-return) (register-session! instance-id 'no-return)
; (error "This may never return." ; for debugging ; (error "This may never return." ; for debugging
(resume req))) (resume req)))
(bad-request full-path req))) (bad-request full-path req)))
(bad-request full-path req))) (bad-request full-path req)))
)))) ))))
(define (send/suspend response-maker) (define (send/suspend response-maker)