diff --git a/basis/hashtables/sequences/sequences-tests.factor b/basis/hashtables/sequences/sequences-tests.factor index 4ccea2fda6..47a4d639dd 100644 --- a/basis/hashtables/sequences/sequences-tests.factor +++ b/basis/hashtables/sequences/sequences-tests.factor @@ -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" SH{ { "asdf" 1000 } } at ] unit-test diff --git a/basis/hashtables/sequences/sequences.factor b/basis/hashtables/sequences/sequences.factor index 907d97b7c4..d1105d35c4 100644 --- a/basis/hashtables/sequences/sequences.factor +++ b/basis/hashtables/sequences/sequences.factor @@ -20,7 +20,7 @@ M: sequence-wrapper hashcode* TUPLE: sequence-hashtable < wrapped-hashtable ; -: ( n -- ihash ) +: ( n -- shashtable ) sequence-hashtable boa ; inline M: sequence-hashtable wrap-key drop ;