From 0d5a91345b947c966cd146e877ed77618b8dafe9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 21 Feb 2013 18:24:50 -0800
Subject: [PATCH] assocs: allow enums to support sequence protocol.

---
 core/assocs/assocs.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 57291bfec4..24e1234b11 100644
--- 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