[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