diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:50:04 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 16:57:45 +0100 |
| commit | 8fc2509f354b02ec4e0a3eb6fabc329109686c47 (patch) | |
| tree | bf7f0738e36d861d57029985ea4f2d3e73d23c15 /pretyping/reductionops.ml | |
| parent | adfd437f8ae6aaf893119fa4730edecf067dede7 (diff) | |
Remove some dead-code (thanks to ocaml warnings)
The removed code isn't used locally and isn't exported in the signature
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index cf08e6787..0b6c3197d 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -492,7 +492,7 @@ let apply_subst recfun env cst_l t stack = | _ -> recfun cst_l (substl env t, stack) in aux env cst_l t stack -let rec stacklam recfun env t stack = +let stacklam recfun env t stack = apply_subst (fun _ -> recfun) env [] t stack let beta_applist (c,l) = |