diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-13 13:12:40 +0000 |
| commit | 338608a73bc059670eb8196788c45a37419a3e4d (patch) | |
| tree | 2938c4d34a758c94990dbd440f7ef722320f0dc2 /plugins | |
| parent | 098200d7e14805e8ae8b8f3873faec3ee3c096ad (diff) | |
Made Pp.std_ppcmds opaque.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15795 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/xml/dumptree.ml4 | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/plugins/xml/dumptree.ml4 b/plugins/xml/dumptree.ml4 index 3f8f18d4a..4fc1fc2b7 100644 --- a/plugins/xml/dumptree.ml4 +++ b/plugins/xml/dumptree.ml4 @@ -26,9 +26,7 @@ open Names;; exception Different -let xmlstream s = - (* In XML we want to print the whole stream so we can force the evaluation *) - Stream.of_list (List.map xmlescape (Stream.npeek max_int s)) +let xmlstream s = xmlescape s ;; let thin_sign osign sign = |