diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-03-12 17:49:21 +0000 |
| commit | cb1ae314411d78952062e5092804b85d981ad6e1 (patch) | |
| tree | 52b9a4058c89b5849d875a4c1129951f35e9c1b1 /parsing/g_zsyntax.ml | |
| parent | 7cb6a61133b6e3c2cd5601282a1f472ff0104c1f (diff) | |
*** empty log message ***
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3761 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_zsyntax.ml')
| -rw-r--r-- | parsing/g_zsyntax.ml | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/parsing/g_zsyntax.ml b/parsing/g_zsyntax.ml index 5103aedb0..11c88d113 100644 --- a/parsing/g_zsyntax.ml +++ b/parsing/g_zsyntax.ml @@ -54,11 +54,15 @@ let z_of_string pos_or_neg s dloc = aZERO (* Declare the primitive parser with Grammar and without the scope mechanism *) -open Pcoq +let zsyntax_create name = + let e = + Pcoq.create_constr_entry (Pcoq.get_univ "znatural") name in + Pcoq.Gram.Unsafe.clear_entry e; + e -let number = create_constr_entry (get_univ "znatural") "number" +let number = zsyntax_create "number" -let negnumber = create_constr_entry (get_univ "znatural") "negnumber" +let negnumber = zsyntax_create "negnumber" let _ = Gram.extend number None |