textproc/sml-fxp/files/patch-src-Unicode-Uri-uriEncode.sml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

diff -Naur src/Unicode/Uri/uriEncode.sml.orig src/Unicode/Uri/uriEncode.sml
--- src/Unicode/Uri/uriEncode.sml.orig	2003-10-09 09:47:57.000000000 -0500
+++ src/Unicode/Uri/uriEncode.sml	2003-10-17 13:52:57.000000000 -0500
@@ -73,7 +73,7 @@
 						   in c2::c1:: #"%"::s
 						   end) 
 			      s (encodeCharUtf8 c)) 
-	    nil (cv,0,NONE)
+	    nil cv
 	 in String.implode (rev revd)
 	 end
 
@@ -85,7 +85,7 @@
 				 else let val (c1,c2) = Byte2Cc (Char2Byte c)
 				      in c2::c1:: #"%"::s
 				      end)) 
-	    nil (cv,0,NONE)
+	    nil cv
 	 in String.implode (rev revd)
 	 end