diff options
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) |