Fix completely borked URI-ESCAPED-CHARS.
This commit is contained in:
parent
bee65f4c22
commit
3a5a0e7867
4
uri.scm
4
uri.scm
|
@ -153,8 +153,8 @@
|
||||||
;;; slashes and colons would be escaped.
|
;;; slashes and colons would be escaped.
|
||||||
|
|
||||||
(define uri-escaped-chars
|
(define uri-escaped-chars
|
||||||
(char-set-union (char-set-complement char-set:letter+digit)
|
(char-set-complement (char-set-union char-set:letter+digit
|
||||||
(string->char-set "$-_@.&!*\"'(),+")))
|
(string->char-set "$-_@.&!*\"'(),+"))))
|
||||||
|
|
||||||
;;; Takes a set of chars to escape. This is because we sometimes need to
|
;;; Takes a set of chars to escape. This is because we sometimes need to
|
||||||
;;; escape larger sets of chars for different parts of a URI.
|
;;; escape larger sets of chars for different parts of a URI.
|
||||||
|
|
Loading…
Reference in New Issue