From 338608a73bc059670eb8196788c45a37419a3e4d Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 13 Sep 2012 13:12:40 +0000
Subject: Made Pp.std_ppcmds opaque.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15795 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/xml/dumptree.ml4 | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'plugins/xml')

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 =
-- 
cgit v1.2.3