src/Pure/ML-Systems/smlnj.ML
changeset 31427 5a07cc86675d
parent 31321 fe786d4633b9
child 31686 e54ae15335a1
     1.1 --- a/src/Pure/ML-Systems/smlnj.ML	Thu Jun 04 17:31:37 2009 +0200
     1.2 +++ b/src/Pure/ML-Systems/smlnj.ML	Thu Jun 04 17:31:38 2009 +0200
     1.3 @@ -4,6 +4,7 @@
     1.4  *)
     1.5  
     1.6  exception Interrupt;
     1.7 +fun reraise exn = raise exn;
     1.8  
     1.9  use "ML-Systems/proper_int.ML";
    1.10  use "ML-Systems/overloading_smlnj.ML";