steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hashtables.identity: minor cleanup.

db4
John Benediktsson 2013-04-06 14:11:57 -07:00
parent 80c06fecb4
commit cde20c935b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/hashtables/identity/identity.factor
View File

@ -17,7 +17,7 @@ M: identity-wrapper hashcode* nip identity-hashcode>> ; inline
TUPLE: identity-hashtable < wrapped-hashtable ; TUPLE: identity-hashtable < wrapped-hashtable ;
: <identity-hashtable> ( n -- ihash ) : <identity-hashtable> ( n -- ihashtable )
<hashtable> identity-hashtable boa ; inline <hashtable> identity-hashtable boa ; inline
M: identity-hashtable wrap-key drop <identity-wrapper> ; M: identity-hashtable wrap-key drop <identity-wrapper> ;
@ -25,7 +25,7 @@ M: identity-hashtable wrap-key drop <identity-wrapper> ;
M: identity-hashtable clone M: identity-hashtable clone
underlying>> clone identity-hashtable boa ; inline underlying>> clone identity-hashtable boa ; inline
: identity-associate ( value key -- hash ) : identity-associate ( value key -- ihashtable )
2 <identity-hashtable> [ set-at ] keep ; inline 2 <identity-hashtable> [ set-at ] keep ; inline
: >identity-hashtable ( assoc -- ihashtable ) : >identity-hashtable ( assoc -- ihashtable )