assocs: allow enums to support sequence protocol.

2013-02-21 18:24:50 -08:00 · 2013-02-21 18:24:50 -08:00 · 0d5a91345b
parent 1524d43c9c
commit 0d5a91345b
1 changed files with 8 additions and 0 deletions
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@ -255,3 +255,11 @@ M: enum assoc-size seq>> length ; inline
 M: enum clear-assoc seq>> delete-all ; inline

 INSTANCE: enum assoc
+
+M: enum length seq>> length ; inline
+
+M: enum nth-unsafe dupd seq>> nth-unsafe 2array ; inline
+
+M: enum set-nth-unsafe seq>> set-nth-unsafe ; inline
+
+INSTANCE: enum sequence