diff --git a/basis/hashtables/identity/identity.factor b/basis/hashtables/identity/identity.factor index e8dfd509af..f7601ebd7b 100644 --- a/basis/hashtables/identity/identity.factor +++ b/basis/hashtables/identity/identity.factor @@ -34,6 +34,8 @@ M: identity-hashtable clone M: identity-hashtable assoc-like drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline +M: identity-hashtable new-assoc drop ; + SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ; { "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when diff --git a/basis/hashtables/sequences/sequences.factor b/basis/hashtables/sequences/sequences.factor index fed14608ed..907d97b7c4 100644 --- a/basis/hashtables/sequences/sequences.factor +++ b/basis/hashtables/sequences/sequences.factor @@ -31,6 +31,8 @@ M: sequence-hashtable clone : >sequence-hashtable ( assoc -- shashtable ) [ assoc-size ] keep assoc-union! ; +M: sequence-hashtable new-assoc drop ; + SYNTAX: SH{ \ } [ >sequence-hashtable ] parse-literal ; { "hashtables.sequences" "prettyprint" } "hashtables.sequences.prettyprint" require-when diff --git a/basis/hashtables/wrapped/wrapped.factor b/basis/hashtables/wrapped/wrapped.factor index 8c3b47da70..82d76c44bd 100644 --- a/basis/hashtables/wrapped/wrapped.factor +++ b/basis/hashtables/wrapped/wrapped.factor @@ -42,4 +42,6 @@ M: wrapped-hashtable >alist M: wrapped-hashtable equal? over wrapped-hashtable? [ [ underlying>> ] bi@ = ] [ 2drop f ] if ; +INSTANCE: wrapped-hashtable assoc + { "hashtables.wrapped" "prettyprint" } "hashtables.wrapped.prettyprint" require-when