From d7feb17c551e159465643f1ffbeb55baab8e0fe2 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 6 Feb 2006 18:43:55 +0000 Subject: [PATCH] s/raise/error svn: r2145 --- collects/web-server/response.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/web-server/response.ss b/collects/web-server/response.ss index 118d958882..41b05c6e90 100644 --- a/collects/web-server/response.ss +++ b/collects/web-server/response.ss @@ -115,7 +115,7 @@ ;; output-response: connection response -> void (define (ext:output-response conn resp) (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) (kill-connection! conn) (raise exn))]) @@ -187,7 +187,7 @@ ;; output-file: connection path symbol bytes -> void (define (ext:output-file conn file-path method mime-type) (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) (kill-connection! conn) (raise exn))]) @@ -213,7 +213,7 @@ ;; If it is a head request output headers only, otherwise output as usual (define (ext:output-response/method conn resp meth) (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) (kill-connection! conn) (raise exn))])