scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed definition of GET-HEADER which conflicted with definition of 

GET-HEADER in utilities.scm and wasn't exported anyway
This commit is contained in:
vibr 2004-08-14 20:54:57 +00:00
parent ffbe3b21cd
commit aea0e950ba
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scheme/httpd/handlers.scm
View File

@ -53,15 +53,6 @@
(string-prefix-ci? (string-append hostname ":") body)))) (string-prefix-ci? (string-append hostname ":") body))))
handler default-handler)) 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 ;; selects handler according to path-prefix
;; if path-prefix matches, handler is called without the path-prefix ;; if path-prefix matches, handler is called without the path-prefix
(define (make-path-prefix-handler path-prefix handler default-handler) (define (make-path-prefix-handler path-prefix handler default-handler)