From 98c9b79881d020aad92fe6d31e24203a18d2daa2 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 6 Feb 2010 23:59:34 -0800
Subject: [PATCH] assocs: use collector-for in assoc>map to create a temporary
vector appropriate for the exemplar
---
core/assocs/assocs.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index f8371640c4..e8ed1637e6 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -58,7 +58,7 @@ PRIVATE>
(assoc-each) each ; inline
: assoc>map ( assoc quot exemplar -- seq )
- [ collector [ assoc-each ] dip ] dip like ; inline
+ [ collector-for [ assoc-each ] dip ] [ like ] bi ; inline
: assoc-map-as ( assoc quot exemplar -- newassoc )
[ [ 2array ] compose V{ } assoc>map ] dip assoc-like ; inline