hashtables.identity: minor cleanup.

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