src/Pure/Isar/code.ML
changeset 40316 665862241968
parent 40187 9b6e918682d5
child 40362 82a066bff182
--- a/src/Pure/Isar/code.ML	Wed Nov 03 10:51:40 2010 +0100
+++ b/src/Pure/Isar/code.ML	Wed Nov 03 11:06:22 2010 +0100
@@ -222,7 +222,7 @@
 
 fun invoke f k = case Datatab.lookup (! kinds) k
  of SOME kind => f kind
-  | NONE => sys_error "Invalid code data identifier";
+  | NONE => raise Fail "Invalid code data identifier";
 
 in