aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorJim Fehrle2018-11-07 00:23:07 -0800
committerJim Fehrle2018-11-14 12:19:14 -0800
commita7121ed7ba1a5a55845b5ffa4846b8aa0e293e5d (patch)
treef72c6aa5710526b0a8e8272e4376b6b00ba267c9 /lib
parent9896b66fabdb1dacafb71887b85facefa91845e7 (diff)
Get hyps and goal the same way Printer does; don't omit info
Allow for new goals that don't map to old goals Include background_goals in all_goals return value Fix incorrect change to raw diffs in shorten_diff_span Fixes #8922
Diffstat (limited to 'lib')
-rw-r--r--lib/pp_diff.ml2
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