changeset 25116 | 31551aae280f |
parent 25048 | 5a94a87af697 |
child 25389 | 3e58c7cb5a73 |
--- 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)