diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-09-09 07:32:53 -0400 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-01 19:50:37 +0100 |
| commit | b56b944920c2a1789ae1568bb146fa71ceaa92b9 (patch) | |
| tree | 125ba510a4920b08804736a9411c976fa9cdd3f7 /module | |
| parent | 8f7ed8abf22daf3c82b26e292b28eaf0a275e29a (diff) | |
http: Do not use 'eq?' to compare characters in parse-request-uri.
* module/web/http.scm (parse-request-uri): Use 'eqv?' to compare
characters.
Diffstat (limited to 'module')
| -rw-r--r-- | module/web/http.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |