[MLton-commit] r6312

[Vesa Karvonen]

Only accept the equal sign in records when it is a complete token.
----------------------------------------------------------------------

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-01-09 21:54:31 UTC (rev 6311)
+++ mltonlib/trunk/com/ssh/generic/unstable/detail/value/read.sml	2008-01-09 23:08:46 UTC (rev 6312)
@@ -381,7 +381,9 @@
                     | SOME (i, (_, p)) =>
                       if isSome (Array.sub (a, i))
                       then zero
-                      else spaces >> L"=" >>> p >>= (fn x =>
+                      else spaces >> symbolicId >>= (fn "=" => return ()
+                                                      | _   => zero) >>>
+                           p >>= (fn x =>
                            (Array.update (a, i, SOME x)
                           ; if n <= 1
                             then lp a 0