mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 07:50:20 +02:00
http: Do not use 'eq?' to compare characters in parse-request-uri.
* module/web/http.scm (parse-request-uri): Use 'eqv?' to compare characters.
This commit is contained in:
parent
78eb40c066
commit
622bd8f14b
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue