interval-maps: speed up interval-at.

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index e9130a3c40c6b82828c11fe52c6da85b82afe8d6..d408c6b5bb54d0dfa525f331c3c3f67ced6ec33b 100644 (file)
--- 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 ;\r
 \r
 : >intervals ( specification -- intervals )\r
-    [ suffix ] { } assoc>map concat 3 <groups> ;\r
+    [ suffix ] { } assoc>map concat 3 group ;\r
 \r
 PRIVATE>\r
 \r