diff options
| author | herbelin | 2002-12-15 12:12:49 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-15 12:12:49 +0000 |
| commit | 6c0bd550e1cc40443ac3d42b68dd5c098afbba4f (patch) | |
| tree | 5fa9820daf2256e6963e0455bc13fab83a8235ba /toplevel/command.ml | |
| parent | d618791e00b0550b8e639bd63df451c2ab13805a (diff) | |
Prise en compte des scopes traversés dans les notations
Traitement spécial pour le scope type_scope à l'internalisation
Ajout "Locate Notation"
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3441 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 283de9ade0..81ee49bd65 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -118,11 +118,13 @@ let declare_definition ident local bl red_option c typopt = | (Global|Local) -> declare_global_definition ident ce' local + let syntax_definition ident c = - let c = interp_aconstr c in + let c = snd (interp_aconstr [] c) in Syntax_def.declare_syntactic_definition ident c; if_verbose message ((string_of_id ident) ^ " is now a syntax macro") + (* 2| Variable/Hypothesis/Parameter/Axiom declarations *) let assumption_message id = |