[MLton-commit] r6168

[Vesa Karvonen]

Worked around lexer bugs in Poly/ML.

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

U   mltonlib/trunk/com/ssh/async/unstable/example/poll-loop/poll-loop.sml

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

Modified: mltonlib/trunk/com/ssh/async/unstable/example/poll-loop/poll-loop.sml
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/example/poll-loop/poll-loop.sml	2007-11-14 14:28:55 UTC (rev 6167)
+++ mltonlib/trunk/com/ssh/async/unstable/example/poll-loop/poll-loop.sml	2007-11-14 14:51:24 UTC (rev 6168)
@@ -23,7 +23,7 @@
    fun findDesc d k =
        recur ([] & !descs) (fn lp =>
           fn _ & [] => fail "findDesc"
-           | fs & e::es => if #1e=d then k (fs, e, es) else lp (e::fs & es))
+           | fs & e::es => if #1 e = d then k (fs, e, es) else lp (e::fs & es))
    val addDesc = List.push descs
    fun remDesc d =
        findDesc d (fn (fs, _, es) => descs := List.revAppend (fs, es))
@@ -34,7 +34,7 @@
    in
       recur ([] & !timeouts) (fn lp =>
          fn fs & [] => here fs [(absTime, action)]
-          | fs & e::es => if Time.<= (#1e, absTime) then lp (e::fs & es)
+          | fs & e::es => if Time.<= (#1 e, absTime) then lp (e::fs & es)
                           else here fs ((absTime, action)::es))
    end
    fun relTimeout (relTime, action) =