[MLton-commit] r5278

Vesa Karvonen vesak at mlton.org
Tue Feb 20 10:37:10 PST 2007


Fixed bug (that's what you get working with C interfaces :-).
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml

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

Modified: mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-02-20 18:33:06 UTC (rev 5277)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-02-20 18:37:04 UTC (rev 5278)
@@ -371,7 +371,7 @@
                              if Real.== (t, Real.posInf)
                              then infinite
                              else Word.fromInt (Real.round (t * 1000.0)))
-                     fun get off = #2 (List.sub (ws, Word.toIntX (n - off)))
+                     fun get off = #2 (List.sub (ws, Word.toIntX (res - off)))
                  in
                     if res = timeout then
                        TIMEOUT




More information about the MLton-commit mailing list