only intercept regular exceptions
authorhaftmann
Wed, 08 Feb 2017 22:26:10 +0100
changeset 65005 3278831c226d
parent 65004 fd4d1395fa17
child 65006 632bdf7b8bab
only intercept regular exceptions
src/Tools/Code/code_runtime.ML
--- a/src/Tools/Code/code_runtime.ML	Wed Feb 08 23:19:10 2017 +0100
+++ b/src/Tools/Code/code_runtime.ML	Wed Feb 08 22:26:10 2017 +0100
@@ -417,7 +417,7 @@
 
 fun checked_computation cTs raw_computation ctxt =
   check_computation_input ctxt cTs
-  #> Exn.capture raw_computation
+  #> Exn.interruptible_capture raw_computation
   #> partiality_as_none;
 
 fun mount_computation ctxt cTs T raw_computation lift_postproc =