# HG changeset patch
# User wenzelm
# Date 1526822939 -7200
# Node ID 9bee37c2ac2b2e32df287e32fe4cee13156768f3
# Parent  18c36ac0acaa403b116873635ee079e7721e9fab
more scalable;

diff -r 18c36ac0acaa -r 9bee37c2ac2b src/Pure/Thy/export_theory.ML
--- a/src/Pure/Thy/export_theory.ML	Sun May 20 15:24:53 2018 +0200
+++ b/src/Pure/Thy/export_theory.ML	Sun May 20 15:28:59 2018 +0200
@@ -20,7 +20,7 @@
     if Options.bool (#options context) "export_theory" then f context thy else ()));
 
 fun export_body thy name body =
-  Export.export thy ("theory/" ^ name) [YXML.string_of_body body];
+  Export.export thy ("theory/" ^ name) (Buffer.chunks (YXML.buffer_body body Buffer.empty));
 
 
 (* presentation *)