diff options
| author |  Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-21 20:09:05 +0200 |
|---|---|---|
| committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-27 21:39:25 +0200 |
| commit | 9be835c4f16b3bc08ff9540a6854ced2d8185cb2 (patch) | |
| tree | a5228fe1f6edec2001efbb9b4ff0045f08b957f5 | |
| parent | 528c237b658dbba896a1fe0041990cc7fec9c4c8 (diff) | |
Remove unused constructors
| -rw-r--r-- | parsing/cLexer.ml4 | 5 | ||||
| -rw-r--r-- | plugins/ssrmatching/ssrmatching.ml4 | 2 | ||||
| -rw-r--r-- | stm/stm.ml | 1 |
3 files changed, 1 insertions, 7 deletions
diff --git a/parsing/cLexer.ml4 b/parsing/cLexer.ml4 index 18942ac29..462905808 100644 --- a/parsing/cLexer.ml4 +++ b/parsing/cLexer.ml4 @@ -99,7 +99,6 @@ module Error = struct | Unterminated_string | Undefined_token | Bad_token of string - | UnsupportedUnicode of int exception E of t @@ -110,9 +109,7 @@ module Error = struct | Unterminated_comment -> "Unterminated comment" | Unterminated_string -> "Unterminated string" | Undefined_token -> "Undefined token" - | Bad_token tok -> Format.sprintf "Bad token %S" tok - | UnsupportedUnicode x -> - Printf.sprintf "Unsupported Unicode character (0x%x)" x) + | Bad_token tok -> Format.sprintf "Bad token %S" tok) end open Error diff --git a/plugins/ssrmatching/ssrmatching.ml4 b/plugins/ssrmatching/ssrmatching.ml4 index 60c199bf5..f146fbb11 100644 --- a/plugins/ssrmatching/ssrmatching.ml4 +++ b/plugins/ssrmatching/ssrmatching.ml4 @@ -435,8 +435,6 @@ let isRigid c = match kind_of_term c with | Prod _ | Sort _ | Lambda _ | Case _ | Fix _ | CoFix _ -> true | _ -> false -exception UndefPat - let hole_var = mkVar (id_of_string "_") let pr_constr_pat c0 = let rec wipe_evar c = diff --git a/stm/stm.ml b/stm/stm.ml index f773d60c5..8c1185b6d 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1274,7 +1274,6 @@ end = struct (* {{{ *) | RespBuiltProof of Proof_global.closed_proof_output * float | RespError of error | RespStates of (Stateid.t * State.partial_state) list - | RespDone let name = ref "proofworker" let extra_env () = !async_proofs_workers_extra_env |