load_file: setmp OldGoals.legacy true;
authorwenzelm
Fri, 21 Oct 2005 18:14:55 +0200
changeset 17975 a77862a93f02
parent 17974 5b54db4a44ee
child 17976 5ca9ff44a149
load_file: setmp OldGoals.legacy true;
src/Pure/Isar/outer_syntax.ML
--- a/src/Pure/Isar/outer_syntax.ML	Fri Oct 21 18:14:54 2005 +0200
+++ b/src/Pure/Isar/outer_syntax.ML	Fri Oct 21 18:14:55 2005 +0200
@@ -261,7 +261,8 @@
 fun try_ml_file name time =
   let
     val path = ThyLoad.ml_path name;
-    val tr = Toplevel.imperative (fn () => ThyInfo.load_file time path);
+    val tr = Toplevel.imperative (fn () =>
+      setmp OldGoals.legacy true (fn () => ThyInfo.load_file time path) ());
     val tr_name = if time then "time_use" else "use";
   in
     if is_none (ThyLoad.check_file NONE path) then ()