Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eta-expanded codetype_hook to make SML/NJ happy.
authorberghofe
Sat, 10 Mar 2007 16:13:08 +0100
changeset 22429 09e794384323
parent 22428 1755e6381b2c
child 22430 6a56bf1b3a64
Eta-expanded codetype_hook to make SML/NJ happy.
src/HOL/Tools/datatype_codegen.ML file | annotate | diff | comparison | revisions 
--- 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 *)
isabelle