diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/dumpglob.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 175a149431..a8f4b31d2d 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -21,9 +21,6 @@ let open_glob_file f = let close_glob_file () = Pervasives.close_out !glob_file -let dump_string s = - Pervasives.output_string !glob_file s - type glob_output_t = | NoGlob | StdOut @@ -44,6 +41,9 @@ let dump_to_dotglob f = glob_output := MultFiles let dump_into_file f = glob_output := File f; open_glob_file f +let dump_string s = + if dump () then Pervasives.output_string !glob_file s + let previous_state = ref MultFiles let pause () = previous_state := !glob_output; glob_output := NoGlob |