diff options
Diffstat (limited to 'debugger/main.ml')
| -rw-r--r-- | debugger/main.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/debugger/main.ml b/debugger/main.ml index 85bc9afb6..9b4359e95 100644 --- a/debugger/main.ml +++ b/debugger/main.ml @@ -26,10 +26,7 @@ open Primitives let line_buffer = Lexing.from_function read_user_input -let rec loop ppf = - line_loop ppf line_buffer; - if !loaded && (not (yes_or_no "The program is running. Quit anyway")) then - loop ppf +let rec loop ppf = line_loop ppf line_buffer let current_duration = ref (-1L) |