From 9fd65ad32412c8dda2afec61cef760f943d9ed3a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 26 Jun 2009 21:46:59 -0500
Subject: [PATCH] add collect-values to histogram

---
 extra/histogram/histogram.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/extra/histogram/histogram.factor b/extra/histogram/histogram.factor
index 70ddfd3af5..d5c6ab3778 100755
--- a/extra/histogram/histogram.factor
+++ b/extra/histogram/histogram.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences assocs ;
+USING: kernel sequences assocs fry ;
 IN: histogram
 
 <PRIVATE
@@ -24,3 +24,6 @@ PRIVATE>
 
 : histogram ( seq -- hashtable )
     [ inc-at ] sequence>hashtable ;
+
+: collect-values ( seq quot: ( obj hashtable -- ) -- hash )
+    '[ [ dup @ ] dip push-at ] sequence>hashtable ; inline