Fix assocs.lib tests

2008-06-18 03:53:16 -05:00 · 2008-06-18 03:53:16 -05:00 · ebb3423e4a
parent 4e1e145669
commit ebb3423e4a
2 changed files with 5 additions and 1 deletions
--- a/extra/assocs/lib/lib-tests.factor
+++ b/extra/assocs/lib/lib-tests.factor
@ -0,0 +1,4 @@
+IN: assocs.lib.tests
+USING: assocs.lib tools.test vectors ;
+
+{ 1 1 } [ [ ?push ] histogram ] must-infer-as
--- a/extra/assocs/lib/lib.factor
+++ b/extra/assocs/lib/lib.factor
@ -41,4 +41,4 @@ IN: assocs.lib
 : histogram ( assoc quot -- assoc' )
    H{ } clone [
        swap [ change-at ] 2curry assoc-each
-    ] keep ;
+    ] keep ; inline