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

assocs: Add set-of 

merry christmas lol
modern-harvey3
Doug Coleman 2019-12-25 11:28:58 -05:00
parent 0b6c3f6f8e
commit c3c61e74d7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/assocs/assocs.factor
View File

@ -120,6 +120,9 @@ PRIVATE>
: of ( assoc key -- value/f ) : of ( assoc key -- value/f )
swap at ; inline swap at ; inline
: set-of ( assoc val key -- assoc )
pick set-at ; inline
M: assoc assoc-clone-like ( assoc exemplar -- newassoc ) M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
[ dup assoc-size ] dip new-assoc [ dup assoc-size ] dip new-assoc
[ [ set-at ] with-assoc assoc-each ] keep ; inline [ [ set-at ] with-assoc assoc-each ] keep ; inline