Mercurial Mercurial > repos > testboard / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/consts.ML
changeset 21822 5a279c9138b6
parent 21794 1a9f57f1bc3a
child 22559 b824487d9b41 
--- 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)
testboard