diff options
| author | herbelin | 2000-10-18 11:07:54 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 11:07:54 +0000 |
| commit | c83d2687d812b8cb7202ec3555e1588f2dfdc5ff (patch) | |
| tree | 2000ccb30cf67783b4e82e0f36d2c99089babb8c /parsing/g_zsyntax.ml | |
| parent | d6ffb0af8f4ec4e034692ec71d443f90520543fd (diff) | |
Mise en place de parseurs avec globalisation pas seulement dans les quotations, pour utilisation par les règles de syntaxe et grammaire
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@718 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/g_zsyntax.ml')
| -rw-r--r-- | parsing/g_zsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_zsyntax.ml b/parsing/g_zsyntax.ml index 8128cb3d99..26f946d031 100644 --- a/parsing/g_zsyntax.ml +++ b/parsing/g_zsyntax.ml @@ -9,7 +9,7 @@ open Names open Ast let get_z_sign loc = - let ast_of_id id = Astterm.globalize_command (Nvar(loc,id)) in + let ast_of_id id = Astterm.globalize_constr (Nvar(loc,id)) in ((ast_of_id "xI", ast_of_id "xO", ast_of_id "xH"), (ast_of_id "ZERO", ast_of_id "POS", ast_of_id "NEG"), (ast_of_id "My_special_variable0", ast_of_id "My_special_variable1")) |