# HG changeset patch
# User wenzelm
# Date 1184881745 -7200
# Node ID d3b05e7bc5d25af01e346519ad4f5cbe9264758e
# Parent  e22705ccc07d04e47c60241e752e83e90247169f
ThyHeader.read: Source.of_string_limited;

diff -r e22705ccc07d -r d3b05e7bc5d2 src/Pure/Thy/thy_load.ML
--- a/src/Pure/Thy/thy_load.ML	Thu Jul 19 23:49:04 2007 +0200
+++ b/src/Pure/Thy/thy_load.ML	Thu Jul 19 23:49:05 2007 +0200
@@ -99,7 +99,7 @@
   let
     val master as ((path, _), _) = check_thy dirs name ml;
     val (name', imports, uses) =
-      ThyHeader.read (Position.path path) (Source.of_string (File.read path));
+      ThyHeader.read (Position.path path) (Source.of_string_limited (File.read path));
     val _ = name = name' orelse
       error ("Filename " ^ quote (Path.implode (Path.base path)) ^
         " does not agree with theory name " ^ quote name');