interval-maps: speed up interval-at.

2012-08-24 12:14:48 -07:00 · 2012-08-24 12:14:48 -07:00 · b364bafeff
parent 27f445d505
commit b364bafeff
1 changed files with 1 additions and 1 deletions
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@ -29,7 +29,7 @@ ALIAS: value third
    [ "Intervals are not disjoint" throw ] unless ;

 : >intervals ( specification -- intervals )
-    [ suffix ] { } assoc>map concat 3 <groups> ;
+    [ suffix ] { } assoc>map concat 3 group ;

 PRIVATE>