# HG changeset patch
# User haftmann
# Date 1486589170 -3600
# Node ID 3278831c226d16903c74c8e64ea0ffea505941df
# Parent  fd4d1395fa17288ca32a832ff194a5935f151fdf
only intercept regular exceptions

diff -r fd4d1395fa17 -r 3278831c226d 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 =