From 17da9e0cff482ce64259511bea1164295e7a9f89 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 7 Apr 2013 12:44:09 -0700
Subject: [PATCH] assocs: faster keys/values for enums.

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

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 44ccf901da..ed43d9325f 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -256,6 +256,10 @@ M: enum delete-at seq>> remove-nth! drop ; inline
 M: enum >alist ( enum -- alist )
     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 clear-assoc seq>> delete-all ; inline