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

assocs: faster keys/values for enums.

db4
John Benediktsson 2013-04-07 12:44:09 -07:00
parent 2fc1ade4c9
commit 17da9e0cff
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/assocs/assocs.factor
View File

@ -256,6 +256,10 @@ M: enum delete-at seq>> remove-nth! drop ; inline
M: enum >alist ( enum -- alist ) M: enum >alist ( enum -- alist )
seq>> [ length iota ] keep zip ; inline seq>> [ length iota ] keep zip ; inline
M: enum keys seq>> length iota >array ; inline
M: enum values seq>> >array ; inline
M: enum assoc-size seq>> length ; inline M: enum assoc-size seq>> length ; inline
M: enum clear-assoc seq>> delete-all ; inline M: enum clear-assoc seq>> delete-all ; inline