more informative check: dummies are always allowed parse_term and should not lead to rejection here;
authorwenzelm
Mon, 15 Jun 2015 17:29:43 +0200
changeset 60490 9b28f446d9c5
parent 60489 bfd9b7302a82
child 60491 2803bc16742c
more informative check: dummies are always allowed parse_term and should not lead to rejection here;
src/Pure/Syntax/syntax_phases.ML
--- a/src/Pure/Syntax/syntax_phases.ML	Mon Jun 15 16:59:27 2015 +0200
+++ b/src/Pure/Syntax/syntax_phases.ML	Mon Jun 15 17:29:43 2015 +0200
@@ -399,8 +399,9 @@
           val limit = Config.get ctxt Syntax.ambiguity_limit;
 
           (*brute-force disambiguation via type-inference*)
-          fun check t = (Syntax.check_term ctxt (constrain t); Exn.Res t)
-            handle exn as ERROR _ => Exn.Exn exn;
+          fun check t =
+            (Syntax.check_term (Proof_Context.allow_dummies ctxt) (constrain t); Exn.Res t)
+              handle exn as ERROR _ => Exn.Exn exn;
 
           val results' =
             if parsed_len > 1 then