svn: r1612
This commit is contained in:
Eli Barzilay 2005-12-13 21:43:37 +00:00
parent 79a2e9d17b
commit b5c88886e7

View File

@ -223,7 +223,7 @@
; gen-collect-garbage-responder : str -> -> response
(define (gen-collect-garbage-responder file)
(lambda ()
(error-response 200 "Garbage collectedd" file)))
(error-response 200 "Garbage collected" file)))
(define servlet?
(let ([servlets-regexp (regexp "^/servlets/.*")])
@ -280,4 +280,4 @@
(and (regexp-match (car x) host-name-possibly-followed-by-a-collon-and-a-port-number)
(cadr x)))
expanded-virtual-host-table)
default-host))))
default-host))))