changeset 37145 | 01aa36932739 |
parent 36610 | bafd82950e24 |
child 39133 | 70d3915c92f0 |
--- a/src/Pure/sign.ML Thu May 27 15:28:23 2010 +0200 +++ b/src/Pure/sign.ML Thu May 27 17:41:27 2010 +0200 @@ -271,7 +271,7 @@ val t' = subst_bounds (xs, t); val u' = subst_bounds (xs, u); val msg = cat_lines - (TypeInfer.appl_error (Syntax.pp_show_brackets pp) why t' T u' U); + (Type_Infer.appl_error (Syntax.pp_show_brackets pp) why t' T u' U); in raise TYPE (msg, [T, U], [t', u']) end; fun typ_of (_, Const (_, T)) = T