[MLton-commit] r6318

[Vesa Karvonen]

Format arrays as #(...) rather than as [|...|].  Note that | is a valid
symbol in symbolic identifiers.

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

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text/cvt.sml

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text/cvt.sml
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text/cvt.sml	2008-01-13 16:01:21 UTC (rev 6317)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/text/cvt.sml	2008-01-13 16:09:10 UTC (rev 6318)
@@ -41,9 +41,9 @@
          | SOME (x, xs) =>
            concat (prefix::c x::foldr (fn (x, ss) => ", "::c x::ss) [suffix] xs)
 
-   fun A ? = let open  ArraySlice in seq "[|" "|]" foldr full  getItem end ?
-   fun L ? = let open   List      in seq "["   "]" foldr Fn.id getItem end ?
-   fun V ? = let open VectorSlice in seq "#["  "]" foldr full  getItem end ?
+   fun A ? = let open  ArraySlice in seq "#(" ")" foldr full  getItem end ?
+   fun L ? = let open   List      in seq "["  "]" foldr Fn.id getItem end ?
+   fun V ? = let open VectorSlice in seq "#[" "]" foldr full  getItem end ?
 
    fun O c = fn NONE => "NONE" | SOME x => "SOME " ^ c x