--- a/src/Tools/value.ML Thu May 27 17:41:27 2010 +0200
+++ b/src/Tools/value.ML Thu May 27 18:10:37 2010 +0200
@@ -47,7 +47,7 @@
| SOME name => value_select name ctxt t;
val ty' = Term.type_of t';
val ctxt' = Variable.auto_fixes t' ctxt;
- val p = PrintMode.with_modes modes (fn () =>
+ val p = Print_Mode.with_modes modes (fn () =>
Pretty.block [Pretty.quote (Syntax.pretty_term ctxt' t'), Pretty.fbrk,
Pretty.str "::", Pretty.brk 1, Pretty.quote (Syntax.pretty_typ ctxt' ty')]) ();
in Pretty.writeln p end;