diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-31 11:24:15 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-01-31 11:24:15 +0000 |
commit | 7de3189d5f82e11a8f584dd1a6104c7863dcc2b4 (patch) | |
tree | 67bee4f7a715207a1e2a5831588e6e8c3c1744fb /toplevel | |
parent | ece4c4c205acf42f07f62c314b0f647fd12367e5 (diff) |
Ajout d'espace dans les règles d'affichage des infix si des lettres figurent dans le token
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1297 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/metasyntax.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/toplevel/metasyntax.ml b/toplevel/metasyntax.ml index 41250931c..d0eb926a4 100644 --- a/toplevel/metasyntax.ml +++ b/toplevel/metasyntax.ml @@ -168,6 +168,10 @@ let infix_syntax_entry assoc n inf prefname astpref = | Some(Gramext.NonA) -> (Extend.L,Extend.L) | None -> (Extend.E,Extend.L) (* LEFTA by default *) in + let inf = + (* Not necessary but increases legibility (e.g. for "=_S") *) + if is_letter (inf.[String.length inf -1]) then " "^inf^" " else inf + in [{Extend.syn_id = prefname; Extend.syn_prec = n,0,0; Extend.syn_astpat = |