[MLton-commit] r4912

[Vesa Karvonen]

Using qualified type name for consistency.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/bootstrap.sml
U   mltonlib/trunk/com/ssh/extended-basis/unstable/public/string.sig

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/bootstrap.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/bootstrap.sml	2006-12-08 18:00:36 UTC (rev 4911)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/bootstrap.sml	2006-12-08 22:52:19 UTC (rev 4912)
@@ -10,6 +10,7 @@
 structure Fn = struct type ('a, 'b) t = 'a -> 'b end
 structure Unit = struct type t = unit end
 structure Bool = struct open Bool type t = bool end
+structure Char = struct open Char type t = char end
 structure Option = struct open Option type 'a t = 'a option end
 structure String = struct open String type t = string end
 structure Int = struct open Int type t = int end

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/public/string.sig
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/public/string.sig	2006-12-08 18:00:36 UTC (rev 4911)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/public/string.sig	2006-12-08 22:52:19 UTC (rev 4912)
@@ -31,7 +31,7 @@
 
    (** == Isomorphisms == *)
 
-   val isoList : (t, char List.t) Iso.t
+   val isoList : (t, Char.t List.t) Iso.t
    (**
     * An isomorphism between strings and lists.  It is always equivalent
     * to {(toList, fromList)}.