scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Made uri-escaped-chars the complement of alphanum | mark.

This commit is contained in:
mainzelm 2003-06-25 07:49:54 +00:00
parent 7d188b8269
commit 886b8f7dd1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/lib/uri.scm
View File

@ -116,8 +116,10 @@
;;; slashes and colons would be escaped. ;;; slashes and colons would be escaped.
(define uri-escaped-chars (define uri-escaped-chars
(char-set-complement (char-set-union char-set:letter+digit (char-set-complement
(string->char-set "$-_@.&!*\"'(),+")))) ;; RFC 2396 (URI Generic Syntax) specifies unreserved = alphanum | mark
(char-set-union char-set:letter+digit
(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.