diff options
| author | letouzey | 2009-12-07 15:24:13 +0000 |
|---|---|---|
| committer | letouzey | 2009-12-07 15:24:13 +0000 |
| commit | 35159e8aa9bf33b4882bc7f17c2e363f769624c7 (patch) | |
| tree | b4791a8db7bcc1369025b1d261dc6d2a6301278c /interp | |
| parent | 78ad7ad114f3872c3e1c48e8427bee1351c25962 (diff) | |
No more specific syntax "Include Self" for inclusion of partially-applied functors
For Module F(X:SIG), making now a Include F will try to find the X fields in
the current context, just as was doing earlier Include Self F. This specific
syntax is removed, freeing the keyword "Self". Anyway, with the use of the
syntax "<+" there was already hardly any need for syntax "Include Self".
Idem for Include Type.
Beware that a typo such as "Include F" instead of "Include F G" will
produce a different message now, about a missing field instead of
a not-enough-applied functor.
By the way, some code clean-up and factorisation of inner recursive
functions in declaremods.ml.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12566 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 4 | ||||
| -rw-r--r-- | interp/topconstr.mli | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index ecb61e15b0..3d2e3fde0d 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -1024,8 +1024,8 @@ type module_type_ast = | CMTEwith of module_type_ast * with_declaration_ast type include_ast = - | CIMTE of module_type_ast * module_type_ast list - | CIME of module_ast * module_ast list + | CIMTE of module_type_ast list + | CIME of module_ast list type 'a module_signature = | Enforce of 'a (* ... : T *) diff --git a/interp/topconstr.mli b/interp/topconstr.mli index b7e389d6b3..36f8cfad39 100644 --- a/interp/topconstr.mli +++ b/interp/topconstr.mli @@ -257,8 +257,8 @@ type module_type_ast = | CMTEwith of module_type_ast * with_declaration_ast type include_ast = - | CIMTE of module_type_ast * module_type_ast list - | CIME of module_ast * module_ast list + | CIMTE of module_type_ast list + | CIME of module_ast list type 'a module_signature = | Enforce of 'a (* ... : T *) |