correct call of http-error in MAKE-HOST-NAME-HANDLER

2005-04-13 20:48:57 +00:00 · 2005-04-13 20:48:57 +00:00 · 453a7cdde6
parent 97f730075d
commit 453a7cdde6
1 changed files with 1 additions and 1 deletions
--- 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