From 000aa1f5a6ddd163f756f6e35f9a5c240a4c978d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 29 Dec 2016 11:58:55 -0800 Subject: [PATCH] assocs: M\ enum >alist can be no-op because it's a sequence. --- core/assocs/assocs.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor index 7237c1cf87..d9473c5438 100644 --- 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