mosml compatibility patch (same names sig/sml/files)

Author: jberthold

MYLIST_SORT.sig renamed to ListSort.sig

@@ -1,5 +1,5 @@
 (** List sort operations. *)
-signature MYLIST_SORT =
+signature ListSort =
   sig
     val sort   : ('a * 'a -> order) -> 'a list -> 'a list
     val sorted : ('a * 'a -> order) -> 'a list -> bool

MyListSort.sml renamed to ListSort.sml

@@ -1,4 +1,4 @@
-structure MyListSort :> MYLIST_SORT =
+structure ListSort :> ListSort =
   struct
     fun sort ordr xs =
       let 

multicontracts.sml

@@ -1,5 +1,3 @@
-structure Listsort = MyListSort
-
 structure multicontracts = struct
 
 exception Error of string
@@ -238,7 +236,7 @@ structure Contract = struct
                               else []
                   | NONE => flows sw s d false t' (* obs is uncertain *)
           val res = flows (fn x => x) 1.0 (today()) true t
-      in Listsort.sort 
+      in ListSort.sort 
              (fn (r1,r2) => Date.compare(#1 r1,#1 r2)) 
              res
       end