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.
tuned name
authorhaftmann
Wed, 18 Apr 2012 21:47:26 +0200
changeset 47571 1d9faa9f65f9
parent 47570 df3c9aa6c9dc
child 47572 1e18bbfb40cb
tuned name
src/Tools/Code/code_thingol.ML file | annotate | diff | comparison | revisions 
--- a/src/Tools/Code/code_thingol.ML	Thu Apr 19 07:25:44 2012 +0100
+++ b/src/Tools/Code/code_thingol.ML	Wed Apr 18 21:47:26 2012 +0200
@@ -901,11 +901,11 @@
   val empty = (empty_naming, Graph.empty);
 );
 
-fun invoke_generation ignore_cache thy (algebra, eqngr) f name =
+fun invoke_generation ignore_cache thy (algebra, eqngr) generate thing =
   Program.change_yield (if ignore_cache then NONE else SOME thy)
     (fn naming_program => (NONE, naming_program)
-      |> f thy algebra eqngr name
-      |-> (fn name => fn (_, naming_program) => (name, naming_program)));
+      |> generate thy algebra eqngr thing
+      |-> (fn thing => fn (_, naming_program) => (thing, naming_program)));
 
 
 (* program generation *)
isabelle