use_thy: removed obsolete ML_Context.save;
authorwenzelm
Wed, 26 Mar 2008 20:14:37 +0100
changeset 26404 56fd70fb7571
parent 26403 8f66999d03a4
child 26405 0cb6f2013e99
use_thy: removed obsolete ML_Context.save;
src/Pure/Isar/isar_syn.ML
--- a/src/Pure/Isar/isar_syn.ML	Wed Mar 26 20:14:36 2008 +0100
+++ b/src/Pure/Isar/isar_syn.ML	Wed Mar 26 20:14:37 2008 +0100
@@ -947,7 +947,8 @@
 
 val _ =
   OuterSyntax.improper_command "use_thy" "use theory file" K.diag
-    (P.name >> (Toplevel.no_timing oo IsarCmd.use_thy));
+    (P.name >> (fn name =>
+      Toplevel.no_timing o Toplevel.imperative (fn () => ThyInfo.use_thy name)));
 
 val _ =
   OuterSyntax.improper_command "touch_thy" "outdate theory, including descendants" K.diag