mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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 • committed by Andy Wingo
parent 8f7ed8abf2
commit b56b944920
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

@ -1118,7 +1118,7 @@ not have to have a scheme or host name. The result is a URI object."
(bad-request "Missing Request-URI")) (bad-request "Missing Request-URI"))
((string= str "*" start end) ((string= str "*" start end)
#f) #f)
((eq? (string-ref str start) #\/) ((eqv? (string-ref str start) #\/)
(let* ((q (string-index str #\? start end)) (let* ((q (string-index str #\? start end))
(f (string-index str #\# start end)) (f (string-index str #\# start end))
(q (and q (or (not f) (< q f)) q))) (q (and q (or (not f) (< q f)) q)))