diff options
Diffstat (limited to 'pretyping')
| -rwxr-xr-x | pretyping/classops.ml | 1 | ||||
| -rwxr-xr-x | pretyping/recordops.ml | 1 | ||||
| -rw-r--r-- | pretyping/tacred.ml | 2 |
3 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 03a0da56ac..536e292fcc 100755 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -203,6 +203,7 @@ let _ = { Summary.freeze_function = freeze; Summary.unfreeze_function = unfreeze; Summary.init_function = init; + Summary.survive_module = false; Summary.survive_section = false } (* classe d'un terme *) diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index b0c3df6076..03028dcf35 100755 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -172,4 +172,5 @@ let _ = { Summary.freeze_function = freeze; Summary.unfreeze_function = unfreeze; Summary.init_function = init; + Summary.survive_module = false; Summary.survive_section = false } diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 13fefd3066..1e25cc195b 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -45,6 +45,7 @@ let _ = { Summary.freeze_function = Conv_oracle.freeze; Summary.unfreeze_function = Conv_oracle.unfreeze; Summary.init_function = Conv_oracle.init; + Summary.survive_module = false; Summary.survive_section = false } let is_evaluable env ref = @@ -141,6 +142,7 @@ let _ = { Summary.freeze_function = freeze; Summary.unfreeze_function = unfreeze; Summary.init_function = init; + Summary.survive_module = false; Summary.survive_section = false } |