changeset 44249 | 64620f1d6f87 |
parent 44247 | 270366301bd7 |
child 44264 | c21ecbb028b6 |
--- a/src/Pure/Isar/runtime.ML Wed Aug 17 22:25:00 2011 +0200 +++ b/src/Pure/Isar/runtime.ML Wed Aug 17 23:37:23 2011 +0200 @@ -61,7 +61,7 @@ if Exn.is_interrupt exn then [] else (case Par_Exn.dest exn of - SOME exns => maps (exn_msgs context o #2) exns (* FIXME include serial in message!? *) + SOME exns => maps (exn_msgs context) exns | NONE => (case exn of Exn.EXCEPTIONS exns => maps (exn_msgs context) exns