add collect-values to histogram

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