assocs: faster keys/values for enums.

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 44ccf901da990b646794cca97592675a9bd3d6b9..ed43d9325f8f87188bcf058635502d053a50d447 100644 (file)
--- 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