diff options
| -rw-r--r-- | parsing/astterm.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 8321d44781..37725ab7bb 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -500,6 +500,10 @@ let ast_to_rawconstr sigma env allow_soapp lvar = | RHole _ :: _ -> anomaly "Metavariable for 2nd-order pattern-matching cannot be anonymous" | _ -> anomaly "Bad arguments for second-order pattern-matching") + | Node(loc,"SQUASH",_) -> + user_err_loc(loc,"ast_to_rawconstr", + [< 'sTR "Ill-formed specification" >]) + | Node(loc,opn,tl) -> anomaly ("ast_to_rawconstr found operator "^opn^" with "^ (string_of_int (List.length tl))^" arguments") |