diff options
| author | Gaetan Gilbert | 2017-04-21 19:29:35 +0200 |
|---|---|---|
| committer | Gaetan Gilbert | 2017-04-27 21:32:00 +0200 |
| commit | 8a3cd2fe699540f1ae5a56917d0f6b951f81d731 (patch) | |
| tree | a22ed219cae82f8a6824df5b51eb571c44489eef /checker | |
| parent | 34d8de84ceb853c98bc80a0623f9afeae317d75f (diff) | |
Remove unused [rec] keywords
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/checker.ml | 2 | ||||
| -rw-r--r-- | checker/inductive.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 95a9ea78b1..57e1806cff 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -221,7 +221,7 @@ let where = function | Some s -> if !Flags.debug then (str"in " ++ str s ++ str":" ++ spc ()) else (mt ()) -let rec explain_exn = function +let explain_exn = function | Stream.Failure -> hov 0 (anomaly_string () ++ str "uncaught Stream.Failure.") | Stream.Error txt -> diff --git a/checker/inductive.ml b/checker/inductive.ml index c4ffc141ff..ae2f7de8ab 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -149,7 +149,7 @@ let remember_subst u subst = (* Bind expected levels of parameters to actual levels *) (* Propagate the new levels in the signature *) -let rec make_subst env = +let make_subst env = let rec make subst = function | LocalDef _ :: sign, exp, args -> make subst (sign, exp, args) |