From 453a7cdde67318d87f70115e79f20d0ed5948bbc Mon Sep 17 00:00:00 2001 From: vibr Date: Wed, 13 Apr 2005 20:48:57 +0000 Subject: [PATCH] correct call of http-error in MAKE-HOST-NAME-HANDLER --- scheme/httpd/handlers.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/handlers.scm b/scheme/httpd/handlers.scm index ffdcbc2..b4e55bc 100644 --- a/scheme/httpd/handlers.scm +++ b/scheme/httpd/handlers.scm @@ -53,7 +53,7 @@ (let ((val (string-trim maybe-val))) (or (string-ci=? hostname val) (string-prefix-ci? (string-append hostname ":") val))) - (http-error (status-code bad-request) "No Host: header")))) + (http-error (status-code bad-request) req "No Host: header")))) handler default-handler)) ;; selects handler according to path-prefix