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

fixed bug in interval-map

Browse Source
This commit is contained in:
Ryan Culpepper 2010-09-17 04:48:14 -06:00
parent b74f3461e1
commit 3037dea5ad
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/data/interval-map.rkt
View File

@ -81,9 +81,10 @@
(check-interval start end 'interval-map-remove!) (check-interval start end 'interval-map-remove!)
(let ([start (norm s start 0)] (let ([start (norm s start 0)]
[end (norm s end 1)]) [end (norm s end 1)])
(split! s start) (when (and start end) ;; ie, s not empty
(split! s end) (split! s start)
(splay-tree-remove-range! s start end)))) (split! s end)
(splay-tree-remove-range! s start end)))))
(define (interval-map-contract! im from to) (define (interval-map-contract! im from to)
(check-interval from to 'interval-map-contract!) (check-interval from to 'interval-map-contract!)