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

2003-06-25 07:49:54 +00:00 · 2003-06-25 07:49:54 +00:00 · 886b8f7dd1
parent 7d188b8269
commit 886b8f7dd1
1 changed files with 4 additions and 2 deletions
--- a/scheme/lib/uri.scm
+++ b/scheme/lib/uri.scm
@ -116,8 +116,10 @@
 ;;; slashes and colons would be escaped.

 (define uri-escaped-chars
-  (char-set-complement (char-set-union char-set:letter+digit
-				       (string->char-set "$-_@.&!*\"'(),+"))))
+  (char-set-complement 
+   ;; 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
 ;;; escape larger sets of chars for different parts of a URI.