diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 13:55:31 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 13:55:31 +0000 |
| commit | b2c0e0759a9cfaf919b1e0e2b6d708b099368bdc (patch) | |
| tree | c6bbda181eb249e41fe9664a4de677f2dd593c0b | |
| parent | e44fdff7d076a27ca994ca4d129a687c1068bd5e (diff) | |
message d'erreur pour rattrapper l'anomalie avec SQUASH
Check {True}.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1719 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 8321d4478..37725ab7b 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") |