diff options
Diffstat (limited to 'debugger/show_source.ml')
| -rw-r--r-- | debugger/show_source.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/debugger/show_source.ml b/debugger/show_source.ml index f38fa382b7..df8693f3d0 100644 --- a/debugger/show_source.ml +++ b/debugger/show_source.ml @@ -69,7 +69,7 @@ let show_listing mdle start stop point before = try let buffer = get_buffer mdle in let rec aff (line_start, line_number) = - if line_number <= stop then + if line_number <= stop then aff (print_line buffer line_number line_start point before + 1, line_number + 1) in aff (pos_of_line buffer start) |