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

interval-maps: some inline.

db4
John Benediktsson 2014-05-18 20:41:51 -07:00
parent 98935b7f15
commit 889eb9b2ef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -44,9 +44,9 @@ PRIVATE>
[ nip ] [ interval-contains? ] 2bi [ nip ] [ interval-contains? ] 2bi
[ value t ] [ drop f f ] if ; inline [ value t ] [ drop f f ] if ; inline
: interval-at ( key map -- value ) interval-at* drop ; : interval-at ( key map -- value ) interval-at* drop ; inline
: interval-key? ( key map -- ? ) interval-at* nip ; : interval-key? ( key map -- ? ) interval-at* nip ; inline
: interval-values ( map -- values ) : interval-values ( map -- values )
check-interval-map array>> [ value ] map ; check-interval-map array>> [ value ] map ;