diff options
| author |  Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-05-31 09:14:47 +0000 |
|---|---|---|
| committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 15:54:22 +0000 |
| commit | fb9755ab4445fd86cdfc5b249b487629591d87a0 (patch) | |
| tree | ad511ecd062020fc16e76560d04ada56ba7f5138 /vernac/vernacentries.ml | |
| parent | 9e75cacd86d491f81da7171c72569ac0cb6aeae0 (diff) | |
[vernac] mk_atts: an atts record with default values
Diffstat (limited to 'vernac/vernacentries.ml')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 135141cd4..1740c5a80 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2344,7 +2344,7 @@ let interp ?(verbosely=true) ?proof ~st {CAst.loc;v=c} = let orig_program_mode = Flags.is_program_mode () in let rec control = function | VernacExpr (f, v) -> - let (polymorphism, atts) = attributes_of_flags f { loc; locality = None; polymorphic = false; program = orig_program_mode; } in + let (polymorphism, atts) = attributes_of_flags f (mk_atts ~program:orig_program_mode ()) in aux ~polymorphism ~atts v | VernacFail v -> with_fail st true (fun () -> control v) | VernacTimeout (n,v) -> |