Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv6103/src
Modified Files:
order.sml
Log Message:
Remove pesky infinite loop
Index: order.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/order.sml,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** order.sml 24 Feb 2008 18:23:44 -0000 1.8
--- order.sml 24 Feb 2008 18:33:13 -0000 1.9
***************
*** 301,322 ****
end
! fun order basisOpt fnames =
! let
! val (providers, fnames) = order basisOpt fnames
! val (hasLib, fnames) = foldl (fn (fname, (hasLib, fnames)) =>
! if OS.Path.file fname = "lib.dtl" then
! (SOME fname, fnames)
! else
! (hasLib, fname :: fnames))
! (NONE, []) fnames
! val fnames = rev fnames
! val fnames = case hasLib of
! NONE => fnames
! | SOME hasLib => hasLib :: fnames
! in
! (providers, fnames)
! end
type providers = {provideC : string SM.map,
--- 301,322 ----
end
! val order = fn basisOpt => fn fnames =>
! let
! val (providers, fnames) = order basisOpt
fnames
! val (hasLib, fnames) = foldl (fn (fname,
(hasLib, fnames)) =>
! if
OS.Path.file fname = "lib.dtl" then
! (SOME
fname, fnames)
! else
! (hasLib,
fname :: fnames))
! (NONE, []) fnames
! val fnames = rev fnames
! val fnames = case hasLib of
! NONE => fnames
! | SOME hasLib => hasLib ::
fnames
! in
! (providers, fnames)
! end
type providers = {provideC : string SM.map,
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
