hashtables.sequences: minor cleanup.
parent
bfe0ace611
commit
80c06fecb4
|
@ -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
|
||||
|
||||
|
|
|
@ -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> ;
|
||||
|
|
Loading…
Reference in New Issue