diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-03-09 23:58:56 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-04-02 06:57:55 +0200 |
commit | ce9b17821a3be3dee7fa7e49c35edaefc658b965 (patch) | |
tree | 9466d4125f446a1483af29201026ca9734522014 /kernel/clambda.ml | |
parent | f29f8f80c8ad94576c7a36f3f638866c208338a0 (diff) |
[lib] Move global options to their proper place.
Recent commits introduced global flags, but these should be
module-specific so relocating.
Global flags are deprecated, and for 8.9 `Lib.Flags` will be reduced
to the truly global stuff.
Diffstat (limited to 'kernel/clambda.ml')
-rw-r--r-- | kernel/clambda.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/clambda.ml b/kernel/clambda.ml index 7b637c20e..641d424e2 100644 --- a/kernel/clambda.ml +++ b/kernel/clambda.ml @@ -807,7 +807,7 @@ and lambda_of_args env start args = (*********************************) - +let dump_lambda = ref false let optimize_lambda lam = let lam = simplify subst_id lam in @@ -819,7 +819,7 @@ let lambda_of_constr ~optimize genv c = Renv.push_rels env (Array.of_list ids); let lam = lambda_of_constr env c in let lam = if optimize then optimize_lambda lam else lam in - if !Flags.dump_lambda then + if !dump_lambda then Feedback.msg_debug (pp_lam lam); lam |