[MLton-commit] r5970

Vesa Karvonen vesak at mlton.org
Tue Aug 28 03:07:01 PDT 2007


Fixed my amateurish indexing bug... Argh...
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/extended-basis/unstable/detail/sequence/mk-buffer-common.fun

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

Modified: mltonlib/trunk/com/ssh/extended-basis/unstable/detail/sequence/mk-buffer-common.fun
===================================================================
--- mltonlib/trunk/com/ssh/extended-basis/unstable/detail/sequence/mk-buffer-common.fun	2007-08-27 16:02:13 UTC (rev 5969)
+++ mltonlib/trunk/com/ssh/extended-basis/unstable/detail/sequence/mk-buffer-common.fun	2007-08-28 10:07:00 UTC (rev 5970)
@@ -89,11 +89,11 @@
    end
 
    fun findSome p b = let
-      fun lp i = if length b < i
-                 then NONE
-                 else case p (sub (b, i))
+      fun lp i = if i < length b
+                 then case p (sub (b, i))
                        of NONE   => lp (i+1)
                         | result => result
+                 else NONE
    in
       lp 0
    end




More information about the MLton-commit mailing list