src/HOL/Tools/datatype_codegen.ML

--- a/src/HOL/Tools/datatype_codegen.ML	Fri Mar 09 13:10:22 2007 +0100
+++ b/src/HOL/Tools/datatype_codegen.ML	Sat Mar 10 16:13:08 2007 +0100
@@ -525,8 +525,8 @@
 
 (* registering code types in code generator *)
 
-val codetype_hook =
-  fold (fn (dtco, (_, spec)) => CodegenData.add_datatype (dtco, spec));
+fun codetype_hook x =
+  fold (fn (dtco, (_, spec)) => CodegenData.add_datatype (dtco, spec)) x;
 
 
 (* instrumentalizing the sort algebra *)