--- a/src/Pure/type_infer.ML Thu May 27 15:28:23 2010 +0200 +++ b/src/Pure/type_infer.ML Thu May 27 17:41:27 2010 +0200 @@ -20,7 +20,7 @@ term list -> term list end; -structure TypeInfer: TYPE_INFER = +structure Type_Infer: TYPE_INFER = struct