suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix merging of report-entries.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-14 17:31:35 -04:00
parent 93e1e6d710
commit c1e7d07586
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/optimizer/tool/report.rkt
View File

@ -85,9 +85,9 @@
(=> unmatch) (=> unmatch)
(if (< start2 end1) ; l in within prev (if (< start2 end1) ; l in within prev
;; merge the two ;; merge the two
(values (cons (merge-entries prev l) (cdr new-report)) (let ([merged (merge-entries prev l)])
;; we don't advance, since we merged (values (cons merged (cdr new-report))
prev) merged))
(unmatch))] (unmatch))]
[(prev l) ; no overlap, just add to the list [(prev l) ; no overlap, just add to the list
(values (cons l new-report) l)]))) (values (cons l new-report) l)])))