diff options
| author | Hugo Herbelin | 2018-11-22 10:56:06 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2018-11-22 10:56:06 +0100 |
| commit | 2d0be200ab9a2e3a0ff7b383078aabe70f24dd82 (patch) | |
| tree | bd9618861bd9d0ed11ee1e52c36340a2a7b9eed8 /lib/pp_diff.ml | |
| parent | ba646509c8946dfa513c30e9b9659643af798cf3 (diff) | |
| parent | a7121ed7ba1a5a55845b5ffa4846b8aa0e293e5d (diff) | |
Merge PR #8967: Fix #8922 (uncaught pp_diff exception)
Diffstat (limited to 'lib/pp_diff.ml')
| -rw-r--r-- | lib/pp_diff.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/pp_diff.ml b/lib/pp_diff.ml index 7b4b1eab73..a485bf31c0 100644 --- a/lib/pp_diff.ml +++ b/lib/pp_diff.ml @@ -86,7 +86,7 @@ let shorten_diff_span dtype diff_list = if (get_variant !src) = dtype then begin if (lt !dst !src) then dst := !src; - while (lt !dst len) && (get_variant !dst) <> `Common do + while (lt !dst len) && (get_variant !dst) = dtype do dst := !dst + incr; done; if (lt !dst len) && (get_str !src) = (get_str !dst) then begin |