# HG changeset patch
# User wenzelm
# Date 1121362114 -7200
# Node ID 35e07087aba215970a0543077d902af4f78984a1
# Parent  a6cdb1ade95591dc3b488d199abb7a0ea5481326
sys_error;

diff -r a6cdb1ade955 -r 35e07087aba2 src/Pure/Isar/locale.ML
--- a/src/Pure/Isar/locale.ML	Thu Jul 14 19:28:33 2005 +0200
+++ b/src/Pure/Isar/locale.ML	Thu Jul 14 19:28:34 2005 +0200
@@ -1983,7 +1983,7 @@
 
     val tinst = Symtab.make (map
                 (fn ((x, 0), T) => (x, T |> renameT)
-                  | ((_, n), _) => error "Internal error var in prep_registration") vinst);
+                  | ((_, n), _) => sys_error "Internal error var in prep_registration") vinst);
     val inst = Symtab.make (given_ps ~~ map rename vs);
 
     (* defined params without user input *)
diff -r a6cdb1ade955 -r 35e07087aba2 src/Pure/Isar/proof_context.ML
--- a/src/Pure/Isar/proof_context.ML	Thu Jul 14 19:28:33 2005 +0200
+++ b/src/Pure/Isar/proof_context.ML	Thu Jul 14 19:28:34 2005 +0200
@@ -723,7 +723,7 @@
     fn th =>
       (case Seq.pull (exp th) of
         SOME (th', _) => th' |> Drule.local_standard
-      | NONE => raise CONTEXT ("Internal failure while exporting theorem", inner))
+      | NONE => sys_error "Failed to export theorem")
   end;
 
 val export_standard = gen_export_std export_view;