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)