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