From 622bd8f14b2b150bf2cb1a8becff670681fe9ad5 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 e9fc88a75..7b13adcbb 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1090,7 +1090,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)))