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;
authorwenzelm
Wed, 13 Dec 2006 15:47:31 +0100
changeset 21822 5a279c9138b6
parent 21821 7fa19d17f488
child 21823 7d4debbb1abf
tuned;
src/Pure/consts.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/consts.ML	Wed Dec 13 15:45:33 2006 +0100
+++ b/src/Pure/consts.ML	Wed Dec 13 15:47:31 2006 +0100
@@ -264,7 +264,7 @@
   let
     val cert_term = certify pp tsig (consts |> set_expand false);
     val expand_term = certify pp tsig (consts |> set_expand true);
-    val force_expand = (mode = #1 Syntax.internal_mode);
+    val force_expand = mode = Syntax.internalM;
 
     val rhs = raw_rhs
       |> Term.map_types (Type.cert_typ tsig)
isabelle