diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-01-14 02:20:42 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-01-14 03:02:20 +0100 |
| commit | 20481a3f3405f04b47c7865ca2788a6f63660443 (patch) | |
| tree | d98f03e446ca636c62df9593d19f5d29ac3c39ee /checker/closure.ml | |
| parent | 7f9223bf9939a626b0813ecc6c34b4ef19b123f0 (diff) | |
Actually use the strategy information in the checker.
Diffstat (limited to 'checker/closure.ml')
| -rw-r--r-- | checker/closure.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/checker/closure.ml b/checker/closure.ml index 3a56bba01..98f8c4a82 100644 --- a/checker/closure.ml +++ b/checker/closure.ml @@ -822,6 +822,7 @@ type clos_infos = fconstr infos let infos_env x = x.i_env let infos_flags x = x.i_flags +let oracle_of_infos x = x.i_env.env_conv_oracle let create_clos_infos flgs env = create (fun _ -> inject) flgs env |