From b56b944920c2a1789ae1568bb146fa71ceaa92b9 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 9 Sep 2016 07:32:53 -0400 Subject: [PATCH] http: Do not use 'eq?' to compare characters in parse-request-uri. * module/web/http.scm (parse-request-uri): Use 'eqv?' to compare characters. --- module/web/http.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/web/http.scm b/module/web/http.scm index 41e429ce3..1f208f44e 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1118,7 +1118,7 @@ not have to have a scheme or host name. The result is a URI object." (bad-request "Missing Request-URI")) ((string= str "*" start end) #f) - ((eq? (string-ref str start) #\/) + ((eqv? (string-ref str start) #\/) (let* ((q (string-index str #\? start end)) (f (string-index str #\# start end)) (q (and q (or (not f) (< q f)) q)))