diff --git a/basis/hashtables/identity/identity.factor b/basis/hashtables/identity/identity.factor index 7ce6d33fd8..c69673ac36 100644 --- a/basis/hashtables/identity/identity.factor +++ b/basis/hashtables/identity/identity.factor @@ -17,7 +17,7 @@ M: identity-wrapper hashcode* nip identity-hashcode>> ; inline TUPLE: identity-hashtable < wrapped-hashtable ; -: ( n -- ihash ) +: ( n -- ihashtable ) identity-hashtable boa ; inline M: identity-hashtable wrap-key drop ; @@ -25,7 +25,7 @@ M: identity-hashtable wrap-key drop ; M: identity-hashtable clone underlying>> clone identity-hashtable boa ; inline -: identity-associate ( value key -- hash ) +: identity-associate ( value key -- ihashtable ) 2 [ set-at ] keep ; inline : >identity-hashtable ( assoc -- ihashtable )