--- a/src/HOL/Tools/float_syntax.ML Sat Feb 13 23:16:06 2010 +0100
+++ b/src/HOL/Tools/float_syntax.ML Sat Feb 13 23:24:57 2010 +0100
@@ -8,7 +8,7 @@
val setup: theory -> theory
end;
-structure FloatSyntax: FLOAT_SYNTAX =
+structure Float_Syntax: FLOAT_SYNTAX =
struct
(* parse translation *)