diff options
| author | filliatr | 1999-10-01 13:44:39 +0000 |
|---|---|---|
| committer | filliatr | 1999-10-01 13:44:39 +0000 |
| commit | 0d6bfb8abbd14b05798b7de307af8c59f47d6425 (patch) | |
| tree | 55978a7cd11346c739761db07d60173693d4073f | |
| parent | ec0db037f54572aae7ab6a0301f92875771654bb (diff) | |
deep_gp pour l'écriture dans un fichier
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@91 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | lib/pp_control.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 3eb10e6dde..34ebf76fc5 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -76,7 +76,7 @@ let with_output_to ch = let ft = with_fp { fp_output = ch ; fp_output_function = (output ch) ; fp_flush_function = (fun () -> flush ch) } in - set_dflt_gp ft; + set_gp ft deep_gp; ft let std_ft = Format.std_formatter |