diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-09-20 08:30:24 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-09-20 08:30:24 +0200 |
| commit | fb482f6b02156c1fcf029263083b0371e030a2cd (patch) | |
| tree | 99f3ee49f015b2859f627cf2e57db0eb5ef3cb27 /vernac/mltop.ml | |
| parent | 9933871efd122163f7e2dfe8377b9b2dd384b47b (diff) | |
[flags] Flag `open Flags`
An incoming commit is removing some toplevel-specific global flags in
favor of local toplevel state; this commit flags `Flags` use so it
becomes clearer in the code whether we are relying on some "global"
settable status in code.
A good candidate for further cleanup is the pattern:
`Flags.if_verbose Feedback.msg_info`
Diffstat (limited to 'vernac/mltop.ml')
| -rw-r--r-- | vernac/mltop.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/vernac/mltop.ml b/vernac/mltop.ml index e8a0ba3dd..1edbd1a85 100644 --- a/vernac/mltop.ml +++ b/vernac/mltop.ml @@ -9,7 +9,6 @@ open CErrors open Util open Pp -open Flags open Libobject open System @@ -365,7 +364,7 @@ let trigger_ml_object verb cache reinit ?path name = else begin let file = file_of_name (Option.default name path) in let path = - if_verbose_load (verb && not !quiet) load_ml_object name ?path file in + if_verbose_load (verb && not !Flags.quiet) load_ml_object name ?path file in add_loaded_module name (Some path); if cache then perform_cache_obj name end |