diff options
| author | herbelin | 2010-07-29 23:10:17 +0000 |
|---|---|---|
| committer | herbelin | 2010-07-29 23:10:17 +0000 |
| commit | 0bd0b1d55aba3f0ca0f495377b9aca8ef4fc4163 (patch) | |
| tree | e843962b31d8d1a94272d340d611a54123eaa8a9 /parsing | |
| parent | 3dbc498b78a1b64a5d0edc4e1ec947a0bbc2cae0 (diff) | |
Rather quick hack to make basic unicode notations available by
requiring a file Utf8_core. That needs to be improved...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13358 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/ppconstr.ml | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index 73f98ca95f..6276a23c39 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -409,15 +409,11 @@ let pr_app pr a l = pr (lapp,L) a ++ prlist (fun a -> spc () ++ pr_expl_args pr a) l) -let pr_forall () = - if !Flags.unicode_syntax then str"Π" ++ spc () - else str"forall" ++ spc () +let pr_forall () = str"forall" ++ spc () -let pr_fun () = - if !Flags.unicode_syntax then str"λ" ++ spc () - else str"fun" ++ spc () +let pr_fun () = str"fun" ++ spc () -let pr_fun_sep = lazy (if !Flags.unicode_syntax then str "," else str " =>") +let pr_fun_sep = str " =>" let pr_dangling_with_for sep pr inherited a = @@ -454,7 +450,7 @@ let pr pr sep inherited a = hov 0 ( hov 2 (pr_delimited_binders pr_fun spc (pr mt ltop) bl) ++ - Lazy.force pr_fun_sep ++ pr spc ltop a), + pr_fun_sep ++ pr spc ltop a), llambda | CLetIn (_,(_,Name x),(CFix(_,(_,x'),[_])|CCoFix(_,(_,x'),[_]) as fx), b) when x=x' -> |