# HG changeset patch
# User haftmann
# Date 1348343980 -7200
# Node ID 484ac6cb13e6815e8db3cd5297f75572e8442395
# Parent  6f7cc8e4271692bb9dae6a35bc94a0f84e614002
cache should not contain material from descendant theory

diff -r 6f7cc8e42716 -r 484ac6cb13e6 src/Pure/Isar/code.ML
--- a/src/Pure/Isar/code.ML	Sat Sep 22 21:23:16 2012 +0200
+++ b/src/Pure/Isar/code.ML	Sat Sep 22 21:59:40 2012 +0200
@@ -266,7 +266,7 @@
   type T = spec * (data * theory_ref) option Synchronized.var;
   val empty = (make_spec (false, (Symtab.empty,
     (Symtab.empty, (Symtab.empty, Symtab.empty)))), empty_dataref ());
-  val extend = I  (* FIXME empty_dataref!?! *)
+  val extend = apsnd (K (empty_dataref ()));
   fun merge ((spec1, _), (spec2, _)) =
     (merge_spec (spec1, spec2), empty_dataref ());
 );