fixing bug in http server

This commit is contained in:
Alex Shinn 2015-02-08 16:04:55 +09:00
parent e658a29e16
commit 5e9dea5c50

View file

@ -166,7 +166,7 @@
(cond (cond
((equal? uri uri2) ((equal? uri uri2)
(lp (cdr ls))) (lp (cdr ls)))
((string->path-uri uri2) ((string->path-uri "http" uri2)
=> (lambda (uri) => (lambda (uri)
(helper (request-with-uri request uri) next restart))) (helper (request-with-uri request uri) next restart)))
(else (else