steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix assocs.lib tests

db4
Slava Pestov 2008-06-18 03:53:16 -05:00
parent 4e1e145669
commit ebb3423e4a
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/assocs/lib/lib-tests.factor Normal file
View File

@ -0,0 +1,4 @@
IN: assocs.lib.tests
USING: assocs.lib tools.test vectors ;
{ 1 1 } [ [ ?push ] histogram ] must-infer-as

2
extra/assocs/lib/lib.factor
View File

@ -41,4 +41,4 @@ IN: assocs.lib
: histogram ( assoc quot -- assoc' ) : histogram ( assoc quot -- assoc' )
H{ } clone [ H{ } clone [
swap [ change-at ] 2curry assoc-each swap [ change-at ] 2curry assoc-each
] keep ; ] keep ; inline