1 (* Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
3 * Copyright (C
) 1997-2000 NEC Research Institute
.
5 * MLton is released under a BSD
-style license
.
6 * See the file MLton
-LICENSE for details
.
11 fun foldStartStop (start
, stop
, b
, f
) =
18 else loop (i
+ 1, f (i
, b
))
22 fun foreachStartStop (start
, stop
, f
) =
23 foldStartStop (start
, stop
, (), fn (i
, ()) => f i
)
25 fun foreach (n
, f
) = foreachStartStop (0, n
, f
)