suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

s/raise/error

Browse Source 
svn: r2145
This commit is contained in:
Jay McCarthy 2006-02-06 18:43:55 +00:00
parent 50be82dd6a
commit d7feb17c55
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/response.ss
View File

@ -115,7 +115,7 @@
;; output-response: connection response -> void ;; output-response: connection response -> void
(define (ext:output-response conn resp) (define (ext:output-response conn resp)
(if (connection-close? conn) (if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.") (error 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn) (with-handlers ([exn? (lambda (exn)
(kill-connection! conn) (kill-connection! conn)
(raise exn))]) (raise exn))])
@ -187,7 +187,7 @@
;; output-file: connection path symbol bytes -> void ;; output-file: connection path symbol bytes -> void
(define (ext:output-file conn file-path method mime-type) (define (ext:output-file conn file-path method mime-type)
(if (connection-close? conn) (if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.") (error 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn) (with-handlers ([exn? (lambda (exn)
(kill-connection! conn) (kill-connection! conn)
(raise exn))]) (raise exn))])
@ -213,7 +213,7 @@
;; If it is a head request output headers only, otherwise output as usual ;; If it is a head request output headers only, otherwise output as usual
(define (ext:output-response/method conn resp meth) (define (ext:output-response/method conn resp meth)
(if (connection-close? conn) (if (connection-close? conn)
(raise 'output-response "Attempt to output on closed connection.") (error 'output-response "Attempt to output on closed connection.")
(with-handlers ([exn? (lambda (exn) (with-handlers ([exn? (lambda (exn)
(kill-connection! conn) (kill-connection! conn)
(raise exn))]) (raise exn))])