.

original commit: 91f42d09fca72dd9a5931a966d962dd61f69842e
2004-09-06 18:47:38 +00:00 · 2004-09-06 18:47:38 +00:00 · 10034ea4de
commit 10034ea4de
parent f2ae9e23b7
1 changed files with 4 additions and 1 deletions
--- a/collects/net/uri-codec-unit.ss
+++ b/collects/net/uri-codec-unit.ss
@ -230,7 +230,10 @@
      (define form-urlencoded->alist
 	(opt-lambda (str [mode 'both])
 	  (define key-regexp (regexp "[^=]*"))
-	  (define value-regexp (regexp "[^&;]*"))
+	  (define value-regexp (case mode
+				 [(semi) (regexp "[^;]*")]
+				 [(ampm) (regexp "[^&]*")]
+				 [else (regexp "[^&;]*")]))
 	  (define (next-key str start)
 	    (if (>= start (string-length str))
 		#f