diff options
| author | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
| commit | e7628797fc241a4d7a5c1a5675cb679db282050d (patch) | |
| tree | 8e8cc4348dfb9247713f45a7c43668ba98c708cf /kernel/cClosure.ml | |
| parent | cf3b9eca0b3e81a7d56acded394a8b6843a4bb8d (diff) | |
| parent | 467eb67bb960c15e1335f375af29b4121ac5262b (diff) | |
Merge PR #10221: Fixing typos - Part 2 (reopening of #10218)
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 95f88c0306..fc7d1a54f2 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -226,7 +226,7 @@ let unfold_red kn = * this constant or abstraction. * * i_tab is the cache table of the results * - * ref_value_cache searchs in the tab, otherwise uses i_repr to + * ref_value_cache searches in the tab, otherwise uses i_repr to * compute the result and store it in the table. If the constant can't * be unfolded, returns None, but does not store this failure. * This * doesn't take the RESET into account. You mustn't keep such a table @@ -645,7 +645,7 @@ and subst_constr subst c = match [@ocaml.warning "-4"] Constr.kind c with and comp_subs el s = Esubst.lift_subst (fun el c -> lazy (to_constr el c)) el s -(* This function defines the correspondance between constr and +(* This function defines the correspondence between constr and fconstr. When we find a closure whose substitution is the identity, then we directly return the constr to avoid possibly huge reallocation. *) |