[MLton-commit] r6257

[Vesa Karvonen]

Using fails from the EB library.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/generic/unstable/detail/util/generics-util.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/debug.sml
U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/util/generics-util.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/util/generics-util.sml	2007-12-09 21:38:49 UTC (rev 6256)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/util/generics-util.sml	2007-12-09 21:41:27 UTC (rev 6257)
@@ -10,7 +10,6 @@
    (* SML/NJ workaround --> *)
 
    val ` = Exn.name
-   fun failCat ss = fail (concat ss)
-   fun failExn e = failCat ["unregistered exn ", `e]
-   fun failExnSq (l, r) = failCat ["unregistered exns ", `l, " and ", `r]
+   fun failExn e = fails ["unregistered exn ", `e]
+   fun failExnSq (l, r) = fails ["unregistered exns ", `l, " and ", `r]
 end

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/debug.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/debug.sml	2007-12-09 21:38:49 UTC (rev 6256)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/debug.sml	2007-12-09 21:41:27 UTC (rev 6257)
@@ -15,7 +15,7 @@
 
    fun add1 kind (x, xs) =
        if List.exists (eq x) xs
-       then fail (concat ["Duplicate ", kind, "s: ", x])
+       then fails ["Duplicate ", kind, "s: ", x]
        else x::xs
 
    fun addN kind (xs, ys) = foldl (add1 kind) xs ys

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2007-12-09 21:38:49 UTC (rev 6256)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/pickle.sml	2007-12-09 21:41:27 UTC (rev 6257)
@@ -670,7 +670,7 @@
                 in
                    rd string >>= (fn s =>
                    case Buffer.findSome (pass s o #rd) exns
-                    of NONE   => fail ("Unregistered exception constructor: " ^ s)
+                    of NONE   => fails ["Unregistered exn constructor: ", s]
                      | SOME r => r)
                 end,
                 wr = fn e => case Buffer.findSome (pass e o #wr) exns