# HG changeset patch
# User wenzelm
# Date 1166021251 -3600
# Node ID 5a279c9138b6d7d8335447534c102c08a6f31927
# Parent  7fa19d17f4885d656399119e72925466d9686e47
tuned;

diff -r 7fa19d17f488 -r 5a279c9138b6 src/Pure/consts.ML
--- 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)