diff options
| author | barras | 2003-10-16 15:59:19 +0000 |
|---|---|---|
| committer | barras | 2003-10-16 15:59:19 +0000 |
| commit | a1b715a8ef3984161f4ed306157ee539990cd8c5 (patch) | |
| tree | dc589f3122fd5f81ed79b02440822f20eb0b479f | |
| parent | ea3ed5f666080d072ae3f1ec4811531b54bc4c9e (diff) | |
oups! ca compile maintenant
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4656 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/vernac.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index 1308b7c701..c2342d7937 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -106,10 +106,10 @@ let set_formatter_translator() = let out s b e = let n = e-b in if n > 0 then begin - (match !last with + (match !last_char with '.' -> if s.[b] = '(' then output ch " " 0 1 | _ -> ()); - last := s.[e-1] + last_char := s.[e-1] end; output ch s b e in |
