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

hashtables.wrapped: INSTANCE: assoc and support new-assoc.

db4
John Benediktsson 2012-07-17 15:50:03 -07:00
parent ccda811114
commit cde26a3356
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,6 +34,8 @@ M: identity-hashtable clone
M: identity-hashtable assoc-like M: identity-hashtable assoc-like
drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline
M: identity-hashtable new-assoc drop <identity-hashtable> ;
SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ; SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;
{ "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when { "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when

2
basis/hashtables/sequences/sequences.factor
View File

@ -31,6 +31,8 @@ M: sequence-hashtable clone
: >sequence-hashtable ( assoc -- shashtable ) : >sequence-hashtable ( assoc -- shashtable )
[ assoc-size <sequence-hashtable> ] keep assoc-union! ; [ assoc-size <sequence-hashtable> ] keep assoc-union! ;
M: sequence-hashtable new-assoc drop <sequence-hashtable> ;
SYNTAX: SH{ \ } [ >sequence-hashtable ] parse-literal ; SYNTAX: SH{ \ } [ >sequence-hashtable ] parse-literal ;
{ "hashtables.sequences" "prettyprint" } "hashtables.sequences.prettyprint" require-when { "hashtables.sequences" "prettyprint" } "hashtables.sequences.prettyprint" require-when

2
basis/hashtables/wrapped/wrapped.factor
View File

@ -42,4 +42,6 @@ M: wrapped-hashtable >alist
M: wrapped-hashtable equal? M: wrapped-hashtable equal?
over wrapped-hashtable? [ [ underlying>> ] bi@ = ] [ 2drop f ] if ; over wrapped-hashtable? [ [ underlying>> ] bi@ = ] [ 2drop f ] if ;
INSTANCE: wrapped-hashtable assoc
{ "hashtables.wrapped" "prettyprint" } "hashtables.wrapped.prettyprint" require-when { "hashtables.wrapped" "prettyprint" } "hashtables.wrapped.prettyprint" require-when