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 /kernel/constr.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 'kernel/constr.ml')
| -rw-r--r-- | kernel/constr.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/kernel/constr.ml b/kernel/constr.ml index cf05fe013..14b4a1772 100644 --- a/kernel/constr.ml +++ b/kernel/constr.ml @@ -325,8 +325,6 @@ let map f c = match kind c with if tl'==tl && bl'==bl then c else mkCoFix (ln,(lna,tl',bl')) -exception Exit of int * constr - (* [map_with_binders g f n c] maps [f n] on the immediate subterms of [c]; it carries an extra data [n] (typically a lift index) which is processed by [g] (which typically add 1 to [n]) at |