hashtables.sequences: minor cleanup.

db4
John Benediktsson 2013-04-06 14:11:45 -07:00
parent bfe0ace611
commit 80c06fecb4
2 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@
USING: assocs hashtables.sequences kernel literals sequences
tools.test ;
IN: hashtables.identity.tests
IN: hashtables.sequences.tests
[ 1000 ] [ 0 4 "asdf" <slice> SH{ { "asdf" 1000 } } at ] unit-test

View File

@ -20,7 +20,7 @@ M: sequence-wrapper hashcode*
TUPLE: sequence-hashtable < wrapped-hashtable ;
: <sequence-hashtable> ( n -- ihash )
: <sequence-hashtable> ( n -- shashtable )
<hashtable> sequence-hashtable boa ; inline
M: sequence-hashtable wrap-key drop <sequence-wrapper> ;