From 10034ea4deeeffe5a5973f4b15b70f74da760c17 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 6 Sep 2004 18:47:38 +0000
Subject: [PATCH] .

original commit: 91f42d09fca72dd9a5931a966d962dd61f69842e
---
 collects/net/uri-codec-unit.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.ss
index 8a0dff8..f3eab99 100644
--- 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