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

assocs: making keys and values generic.

db4
John Benediktsson 2013-04-06 21:19:56 -07:00
parent 987ecea441
commit 9926c205a5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/assocs/assocs.factor
View File

@ -16,6 +16,8 @@ GENERIC: assoc-size ( assoc -- n )
GENERIC: assoc-like ( assoc exemplar -- newassoc )
GENERIC: assoc-clone-like ( assoc exemplar -- newassoc )
GENERIC: >alist ( assoc -- newassoc )
GENERIC: keys ( assoc -- keys )
GENERIC: values ( assoc -- values )
M: assoc assoc-like drop ; inline
@ -107,11 +109,9 @@ M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
[ dup assoc-size ] dip new-assoc
[ [ set-at ] with-assoc assoc-each ] keep ; inline
: keys ( assoc -- keys )
[ drop ] { } assoc>map ;
M: assoc keys [ drop ] { } assoc>map ;
: values ( assoc -- values )
[ nip ] { } assoc>map ;
M: assoc values [ nip ] { } assoc>map ;
: delete-at* ( key assoc -- old ? )
[ at* ] 2keep delete-at ;