diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-22 21:39:25 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-22 21:39:25 +0000 |
commit | 11846c16e57f418c80acba3f5d764855ca096254 (patch) | |
tree | ffa39d895b48dc69dc077eaa2db7f51292feaacc | |
parent | 5572bc8c80f53e8ac9fbb3a90502ef35e3bdc4a2 (diff) |
Tout petit bug d'affichage dans constr_display (top_printers)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9161 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 273f109c3..276918706 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -145,9 +145,9 @@ let constr_display csr = | Fix ((t,i),(lna,tl,bl)) -> "Fix(([|"^(Array.fold_right (fun x i -> (string_of_int x)^(if not(i="") then (";"^i) else "")) t "")^"|],"^(string_of_int i)^")," - ^(array_display tl)^"," + ^(array_display tl)^",[|" ^(Array.fold_right (fun x i -> (name_display x)^(if not(i="") - then (";"^i) else "")) lna "")^"," + then (";"^i) else "")) lna "")^"|]," ^(array_display bl)^")" | CoFix(i,(lna,tl,bl)) -> "CoFix("^(string_of_int i)^")," |