diff options
| author | Pierre-Marie Pédrot | 2015-03-27 18:17:03 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-03-27 19:05:31 +0100 |
| commit | e8b4756c655eacd8a2b9b23630ba02dbbbc4e96e (patch) | |
| tree | b3762d3d6b6756fc3d749931cd2103bea61b3779 /parsing | |
| parent | a5a333ddbf5c27320e767ca0611caf8a821449aa (diff) | |
Putting the From parameter of the Require command into the AST.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 70a8ec5522..cf7f6af28b 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -465,11 +465,10 @@ GEXTEND Gram (* Requiring an already compiled module *) | IDENT "Require"; export = export_token; qidl = LIST1 global -> - VernacRequire (export, qidl) + VernacRequire (None, export, qidl) | IDENT "From" ; ns = global ; IDENT "Require"; export = export_token ; qidl = LIST1 global -> - let qidl = List.map (Libnames.join_reference ns) qidl in - VernacRequire (export, qidl) + VernacRequire (Some ns, export, qidl) | IDENT "Import"; qidl = LIST1 global -> VernacImport (false,qidl) | IDENT "Export"; qidl = LIST1 global -> VernacImport (true,qidl) | IDENT "Include"; e = module_type_inl; l = LIST0 ext_module_expr -> |