From aea0e950ba8f16d577d831c6b51bd77deca757cf Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Sat, 14 Aug 2004 20:54:57 +0000
Subject: [PATCH] removed definition of GET-HEADER which conflicted with
 definition of GET-HEADER in utilities.scm and wasn't exported anyway

---
 scheme/httpd/handlers.scm | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/scheme/httpd/handlers.scm b/scheme/httpd/handlers.scm
index dcd4dea..a258693 100644
--- a/scheme/httpd/handlers.scm
+++ b/scheme/httpd/handlers.scm
@@ -53,15 +53,6 @@
 	   (string-prefix-ci? (string-append hostname ":") body))))
    handler default-handler))
 
-(define (get-header headers tag)
-  (cond
-   ((assq tag headers) => cdr)
-   (else
-    (http-error (status-code bad-request) #f
-		(string-append "Request did not contain "
-			       (symbol->string tag)
-			       " header")))))
-
 ;; selects handler according to path-prefix
 ;; if path-prefix matches, handler is called without the path-prefix
 (define (make-path-prefix-handler path-prefix handler default-handler)