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

assocs.extras: adding (in-place) substitute!.

db4
John Benediktsson 2012-07-13 19:00:49 -07:00
parent 57b681dd71
commit d5ef0e046a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/assocs/extras/extras.factor
View File

@ -21,3 +21,6 @@ IN: assocs.extras
[ dup length ] dip new-assoc [ dup length ] dip new-assoc
[ [ set-at ] with-assoc 2each ] keep [ [ set-at ] with-assoc 2each ] keep
] if ; inline ] if ; inline
: substitute! ( seq assoc -- seq )
substituter map! ;