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

interval-maps: allow interval-at and interval-key? to optimize better...

db4
John Benediktsson 2012-08-24 14:37:46 -07:00
parent f496a05695
commit 0af7e323d6
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

@ -36,7 +36,7 @@ PRIVATE>
: interval-at* ( key map -- value ? )
[ drop ] [ find-interval ] 2bi
[ nip ] [ interval-contains? ] 2bi
[ value t ] [ drop f f ] if ;
[ value t ] [ drop f f ] if ; inline
: interval-at ( key map -- value ) interval-at* drop ;