diff options
| author | Pierre-Marie Pédrot | 2018-09-25 20:12:39 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-09-25 20:12:39 +0200 |
| commit | 7cc70b0df61718a946327d5bfb056b140eeb54ba (patch) | |
| tree | 577a2f193d2cca1e749f0fdca05248786c3039d0 | |
| parent | 7c5191282697c091d576b938adadc7a23ac8b9bd (diff) | |
| parent | 1ac3418389789e7288c5fb3576f787b7c2544342 (diff) | |
Merge PR #8535: Fixing #8532: regression in Print Assumptions within a functor.
| -rw-r--r-- | test-suite/bugs/closed/8532.v | 8 | ||||
| -rw-r--r-- | vernac/assumptions.ml | 2 |
2 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/bugs/closed/8532.v b/test-suite/bugs/closed/8532.v new file mode 100644 index 0000000000..00aa66e701 --- /dev/null +++ b/test-suite/bugs/closed/8532.v @@ -0,0 +1,8 @@ +(* Checking Print Assumptions relatively to a bound module *) + +Module Type Typ. + Parameter Inline(10) t : Type. +End Typ. +Module Terms_mod (SetVars : Typ). +Print Assumptions SetVars.t. +End Terms_mod. diff --git a/vernac/assumptions.ml b/vernac/assumptions.ml index 0bcd3c64eb..b000745961 100644 --- a/vernac/assumptions.ml +++ b/vernac/assumptions.ml @@ -71,7 +71,7 @@ let rec fields_of_functor f subs mp0 args = function let rec lookup_module_in_impl mp = match mp with | MPfile _ -> Global.lookup_module mp - | MPbound _ -> assert false + | MPbound _ -> Global.lookup_module mp | MPdot (mp',lab') -> if ModPath.equal mp' (Global.current_modpath ()) then Global.lookup_module mp |