src/Pure/display.ML
changeset 42384 6b8e28b52ae3
parent 42383 0ae4ad40d7b5
child 43329 84472e198515
--- a/src/Pure/display.ML	Mon Apr 18 11:13:29 2011 +0200
+++ b/src/Pure/display.ML	Mon Apr 18 11:44:39 2011 +0200
@@ -143,7 +143,7 @@
     fun prt_term t = Pretty.quote (Syntax.pretty_term ctxt t);
     val prt_term_no_vars = prt_term o Logic.unvarify_global;
     fun prt_const (c, ty) = [Pretty.str c, Pretty.str " ::", Pretty.brk 1, prt_typ_no_tvars ty];
-    val prt_const' = Defs.pretty_const (Context.pretty ctxt);
+    val prt_const' = Defs.pretty_const ctxt;
 
     fun pretty_classrel (c, []) = prt_cls c
       | pretty_classrel (c, cs) = Pretty.block