diff options
Diffstat (limited to 'debugger/main.ml')
-rw-r--r-- | debugger/main.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/debugger/main.ml b/debugger/main.ml index 60bbdd2b77..b37ce86b39 100644 --- a/debugger/main.ml +++ b/debugger/main.ml @@ -104,8 +104,7 @@ let rec protect ppf restart loop = restart ppf end) | x -> - kill_program (); - raise x + cleanup x kill_program let execute_file_if_any () = let buffer = Buffer.create 128 in |