diff options
| author | Maxime Dénès | 2017-12-11 11:30:55 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-11 11:30:55 +0100 |
| commit | 98c0c64749b6656df2a6522a3277ca2b96ae58ba (patch) | |
| tree | e8d44694ca9791ddd1c37c27fefac4eccab39992 /grammar | |
| parent | 4e6012d60555a22ccd0f0aa408ec47aa0d5de45e (diff) | |
| parent | c78de8b5456fdaf2067b6b2d5c128923b4cda7fc (diff) | |
Merge PR #1150: [stm] Remove all but one use of VtUnknown.
Diffstat (limited to 'grammar')
| -rw-r--r-- | grammar/vernacextend.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/grammar/vernacextend.mlp b/grammar/vernacextend.mlp index f6f46710c2..a561ea3703 100644 --- a/grammar/vernacextend.mlp +++ b/grammar/vernacextend.mlp @@ -82,7 +82,7 @@ let make_clause_classifier cg s { r_patt = pt; r_class = c; } = "classifiers. Only one classifier is called.") ^ "\n"); (make_patt pt, ploc_vala None, - <:expr< fun loc -> (Vernacexpr.VtUnknown, Vernacexpr.VtNow) >>) + <:expr< fun () -> ( CErrors.anomaly (Pp.str "No classification given for command " ^ s ) ) >>) let make_fun_clauses loc s l = let map c = |