src/Tools/Code/code_runtime.ML

   tap (check_typ ctxt T o reject_vars ctxt o Thm.term_of)
   #> raw_conv ctxt;
 
 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 =
   let
     val preprocess = preprocess_term { ctxt = ctxt };