mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

http: Do not use 'eq?' to compare characters in parse-request-uri.

Browse source 
* module/web/http.scm (parse-request-uri): Use 'eqv?' to compare
characters.
This commit is contained in:
Mark H Weaver 2016-09-09 07:32:53 -04:00
parent 78eb40c066
commit 622bd8f14b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/http.scm
View file

@ -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)))