diff options
Diffstat (limited to 'plugins/xml')
| -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 = |