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

assocs.extras: fixing stack effect, inline words.

John Benediktsson 2012-07-11 22:15:44 -07:00
parent 4ed70f0ab7
commit dcd91bd259
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
: 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? [
[ 2array ] swap 2map-as
] [
[ dup length ] dip new-assoc
[ [ set-at ] with-assoc 2each ] keep
] if ;
] if ; inline