assocs: M\ enum >alist can be no-op because it's a sequence.

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 7237c1cf874c49fb21000db0fd987c5c2b5e215d..d9473c5438c18b7f541711dff53da91c66ce5944 100644 (file)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -293,8 +293,7 @@ M: enum set-at seq>> set-nth ; inline
 
 M: enum delete-at seq>> remove-nth! drop ; inline
 
-M: enum >alist ( enum -- alist )
-    seq>> [ length iota ] keep zip ; inline
+M: enum >alist ( enum -- alist ) ; inline
 
 M: enum keys seq>> length iota >array ; inline