# HG changeset patch
# User wenzelm
# Date 1192899269 -7200
# Node ID 31551aae280f0c4693c33d8de10973585064febf
# Parent  ec2498132ac46982ecbe3749b6ac5be086c09d2a
PrintMode.internal;

diff -r ec2498132ac4 -r 31551aae280f src/Pure/consts.ML
--- a/src/Pure/consts.ML	Sat Oct 20 18:54:28 2007 +0200
+++ b/src/Pure/consts.ML	Sat Oct 20 18:54:29 2007 +0200
@@ -267,7 +267,7 @@
   let
     val cert_term = certify pp tsig false consts;
     val expand_term = certify pp tsig true consts;
-    val force_expand = mode = Syntax.internalM;
+    val force_expand = mode = PrintMode.internal;
 
     val rhs = raw_rhs
       |> Term.map_types (Type.cert_typ tsig)