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

assocs.extras: fixing stack effect, inline words.

db4
John Benediktsson 2012-07-11 22:15:44 -07:00
parent 6b3e416bc1
commit 2d3f46acf4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,12 +12,12 @@ IN: assocs.extras
[ nip ] assoc-filter ; inline [ nip ] assoc-filter ; inline
: deep-at ( assoc seq -- value/f ) : deep-at ( assoc seq -- value/f )
[ swap at ] each ; [ swap at ] each ; inline
: zip-as ( keys values exemplar -- assocs ) : zip-as ( keys values exemplar -- assoc )
dup sequence? [ dup sequence? [
[ 2array ] swap 2map-as [ 2array ] swap 2map-as
] [ ] [
[ dup length ] dip new-assoc [ dup length ] dip new-assoc
[ [ set-at ] with-assoc 2each ] keep [ [ set-at ] with-assoc 2each ] keep
] if ; ] if ; inline