assocs: allow enums to support sequence protocol.

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 57291bfec4e3f5aa7c9c34341ad984afab53d61c..24e1234b1153b53671a2d84f78359672c784c216 100644 (file)
--- 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