add inlinable assoc methods on f

2009-10-30 15:22:14 -05:00 · 2009-10-30 15:22:14 -05:00 · 967d70df35
parent 1b8c9f757d
commit 967d70df35
1 changed files with 4 additions and 0 deletions
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@ -202,6 +202,10 @@ M: sequence assoc-like
 M: sequence >alist ; inline

 ! Override sequence => assoc instance for f
+M: f at* 2drop f f ; inline
+
+M: f assoc-size drop 0 ; inline
+
 M: f clear-assoc drop ; inline

 M: f assoc-like drop dup assoc-empty? [ drop f ] when ; inline