Fix merging of report-entries.

2011-07-14 17:31:35 -04:00 · 2011-07-14 17:31:35 -04:00 · c1e7d07586
commit c1e7d07586
parent 93e1e6d710
1 changed files with 3 additions and 3 deletions
--- a/collects/typed-scheme/optimizer/tool/report.rkt
+++ b/collects/typed-scheme/optimizer/tool/report.rkt
@ -85,9 +85,9 @@
         (=> unmatch)
         (if (< start2 end1) ; l in within prev
             ;; merge the two
-             (values (cons (merge-entries prev l) (cdr new-report))
-                     ;; we don't advance, since we merged
-                     prev)
+             (let ([merged (merge-entries prev l)])
+               (values (cons merged (cdr new-report))
+                       merged))
             (unmatch))]
        [(prev l) ; no overlap, just add to the list
         (values (cons l new-report) l)])))