interval-maps: speed up interval-at.

John Benediktsson 2012-08-24 12:14:48 -07:00
parent ba51919e50
commit a059f1c9f3
1 changed files with 1 additions and 1 deletions

View File

@ -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>