| changeset 13488 | a246d390f033 |
| parent 12903 | 58da1dc2720c |
| child 13629 | a46362d2b19b |
--- a/src/Pure/library.ML Thu Aug 08 23:52:55 2002 +0200 +++ b/src/Pure/library.ML Thu Aug 08 23:53:22 2002 +0200 @@ -1213,7 +1213,7 @@ (* transform any exception, including ERROR *) fun transform_failure exn f x = - transform_error f x handle e => raise exn e; + transform_error f x handle Interrupt => raise Interrupt | e => raise exn e;