diff options
| author | Vincent Laporte | 2018-09-07 11:34:32 +0200 |
|---|---|---|
| committer | Vincent Laporte | 2018-09-14 07:51:17 +0000 |
| commit | ab2560233f2e6fc8c26853af6991533d8d335e16 (patch) | |
| tree | a5712bb6310eb819f620a504b62533adf240cd94 /kernel | |
| parent | 4be2dd481c783bed7c09086b647d860e42b7ea9f (diff) | |
Retroknowledge: remove the (unused) by clause
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/safe_typing.ml | 4 | ||||
| -rw-r--r-- | kernel/safe_typing.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 15f972afcf..95eea2d6b0 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -892,8 +892,8 @@ let retroknowledge f senv = Environ.retroknowledge f (env_of_senv senv) [@@@ocaml.warning "+3"] -let register field value by_clause senv = - (* todo : value closed, by_clause safe, by_clause of the proper type*) +let register field value senv = + (* todo : value closed *) (* spiwack : updates the safe_env with the information that the register action has to be performed (again) when the environment is imported *) { senv with diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 502e2970a1..2f83e71726 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -215,7 +215,7 @@ val retroknowledge : (retroknowledge-> 'a) -> safe_environment -> 'a [@@ocaml.deprecated "Use the projection of Environ.env"] val register : - field -> Retroknowledge.entry -> Constr.constr -> safe_transformer0 + field -> Retroknowledge.entry -> safe_transformer0 val register_inline : Constant.t -> safe_transformer0 |