steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

interval-maps: speed up interval-at.

db4
John Benediktsson 2012-08-24 12:14:48 -07:00
parent 27f445d505
commit b364bafeff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/interval-maps/interval-maps.factor
View File

@ -29,7 +29,7 @@ ALIAS: value third
[ "Intervals are not disjoint" throw ] unless ; [ "Intervals are not disjoint" throw ] unless ;
: >intervals ( specification -- intervals ) : >intervals ( specification -- intervals )
[ suffix ] { } assoc>map concat 3 <groups> ; [ suffix ] { } assoc>map concat 3 group ;
PRIVATE> PRIVATE>