[MLton-commit] r7002

[Vesa Karvonen]

Try the most likely alternative first.

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

U   mltonlib/trunk/com/ssh/generic/unstable/detail/value/read.sml

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

Modified: mltonlib/trunk/com/ssh/generic/unstable/detail/value/read.sml
===================================================================
--- mltonlib/trunk/com/ssh/generic/unstable/detail/value/read.sml	2008-12-14 18:00:05 UTC (rev 7001)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/read.sml	2008-12-14 20:34:09 UTC (rev 7002)
@@ -81,7 +81,7 @@
    fun I s = shortId >>= (fn i => if i = s then return () else zero)
 
    val numLabel = id (Char.inRange (#"1", #"9")) Char.isDigit
-   val label = numLabel <|> shortId
+   val label = shortId <|> numLabel
 
    fun mkSequ pre suf (Ops.S {fromList, ...}) p = let
       fun fin xs _ = return (fromList (rev xs))