From c1e7d0758600d0c9d5b658ffcb44fb4399c4eb9c Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 14 Jul 2011 17:31:35 -0400 Subject: [PATCH] Fix merging of report-entries. --- collects/typed-scheme/optimizer/tool/report.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/optimizer/tool/report.rkt b/collects/typed-scheme/optimizer/tool/report.rkt index c4b5340958..43abac8488 100644 --- 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)])))