src/Pure/Syntax/syntax_phases.ML
changeset 55955 e8f1bf005661
parent 55954 a29aefc88c8d
child 55956 94d384d621b0
--- a/src/Pure/Syntax/syntax_phases.ML	Thu Mar 06 13:44:01 2014 +0100
+++ b/src/Pure/Syntax/syntax_phases.ML	Thu Mar 06 14:38:54 2014 +0100
@@ -224,7 +224,7 @@
 fun decode_const ctxt c =
   let
     val (Const (c', _), _) =
-      Proof_Context.check_const ctxt {proper = true, strict = false} dummyT (c, Position.none);
+      Proof_Context.check_const ctxt {proper = true, strict = false} (c, Position.none);
   in c' end;
 
 fun decode_term _ (result as (_: Position.report_text list, Exn.Exn _)) = result