--- a/CookBook/Recipes/StoringData.thy Wed Jan 14 16:46:07 2009 +0000
+++ b/CookBook/Recipes/StoringData.thy Wed Jan 14 17:47:49 2009 +0000
@@ -16,8 +16,7 @@
*}
-ML {*
-local
+ML{*local
structure Data = GenericDataFun
( type T = int Symtab.table
@@ -27,11 +26,8 @@
)
in
-
-val lookup = Symtab.lookup o Data.get
-
-fun update k v = Data.map (Symtab.update (k, v))
-
+ val lookup = Symtab.lookup o Data.get
+ fun update k v = Data.map (Symtab.update (k, v))
end *}
setup {* Context.theory_map (update "foo" 1) *}