interval-maps: bit of unsafe.

2013-03-07 10:46:41 -08:00 · 2013-03-07 10:46:41 -08:00 · bd115175b6
parent 5004c49ca2
commit bd115175b6
1 changed files with 1 additions and 1 deletions
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@ -52,7 +52,7 @@ PRIVATE>
    check-interval-map array>> [ value ] map ;

 : <interval-map> ( specification -- map )
-    all-intervals [ first second ] sort-with
+    all-intervals [ first-unsafe second-unsafe ] sort-with
    >intervals ensure-disjoint interval-map boa ;

 : <interval-set> ( specification -- map )