hashtables.identity: support assoc-like

diff --git a/basis/hashtables/identity/identity.factor b/basis/hashtables/identity/identity.factor
index 88f4de5c92d8c87c6dc2ce50563d52a887634c6e..0741a53bda199585dbc24ba80fb39e0395ae6411 100644 (file)
--- a/basis/hashtables/identity/identity.factor
+++ b/basis/hashtables/identity/identity.factor
@@ -31,6 +31,9 @@ M: identity-hashtable clone
 : >identity-hashtable ( assoc -- ihashtable )\r
     [ assoc-size <identity-hashtable> ] keep assoc-union! ;\r
 \r
+M: identity-hashtable assoc-like\r
+    drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline\r
+\r
 SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;\r
 \r
 { "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when\r