diff options
author | 2012-03-26 22:29:15 +0000 | |
---|---|---|
committer | 2012-03-26 22:29:15 +0000 | |
commit | 18796b6aea453bdeef1ad12ce80eeb220bf01e67 (patch) | |
tree | 4158cc127fa43f57f7a221f56201af5d42aff9e9 /parsing | |
parent | 9410a6fecf2e9011c9a6fb243cec479e3901187c (diff) |
Slight change in the semantics of arguments scopes: scopes can no
longer be bound to Funclass or Sortclass (this does not seem to be
useful). [An exception is when using modules, if a constant foo is
expanded into a type, a "Bind Scope sc with foo" starts binding
Sortclass].
Also reworked reference manual for Arguments Scopes and Bind Scopes.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15098 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
-rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
-rw-r--r-- | parsing/ppvernac.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 38e4e8eec..336d1e178 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -971,7 +971,7 @@ GEXTEND Gram VernacDelimiters (sc,key) | IDENT "Bind"; IDENT "Scope"; sc = IDENT; "with"; - refl = LIST1 class_rawexpr -> VernacBindScope (sc,refl) + refl = LIST1 smart_global -> VernacBindScope (sc,refl) | IDENT "Infix"; local = obsolete_locality; op = ne_lstring; ":="; p = constr; diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 49c76c96c..f9f565dce 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -502,7 +502,7 @@ let rec pr_vernac = function spc() ++ str "with " ++ str key | VernacBindScope (sc,cll) -> str"Bind Scope" ++ spc () ++ str sc ++ - spc() ++ str "with " ++ prlist_with_sep spc pr_class_rawexpr cll + spc() ++ str "with " ++ prlist_with_sep spc pr_smart_global cll | VernacArgumentsScope (local,q,scl) -> let pr_opt_scope = function | None -> str"_" | Some sc -> str sc in |