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.
checkpoint/copy_node: reset body context;
authorwenzelm
Fri, 17 Feb 2006 20:03:19 +0100
changeset 19101 d9b6375a21a4
parent 19100 644a7a47ed02
child 19102 db27ca6a6cd6
checkpoint/copy_node: reset body context;
src/Pure/Isar/toplevel.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/toplevel.ML	Fri Feb 17 20:03:17 2006 +0100
+++ b/src/Pure/Isar/toplevel.ML	Fri Feb 17 20:03:19 2006 +0100
@@ -264,12 +264,10 @@
 
 val stale_theory = ERROR "Stale theory encountered after succesful execution!";
 
-fun checkpoint_node (Theory (thy, ctxt)) = Theory (Theory.checkpoint thy, ctxt)
+fun checkpoint_node (Theory (thy, _)) = Theory (Theory.checkpoint thy, NONE)
   | checkpoint_node node = node;
 
-fun copy_node (Theory (thy, ctxt)) =
-      let val thy' = Theory.copy thy
-      in Theory (thy', Option.map (ProofContext.transfer thy') ctxt) end
+fun copy_node (Theory (thy, _)) = Theory (Theory.copy thy, NONE)
   | copy_node node = node;
 
 fun return (result, NONE) = result
isabelle