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

assocs.extras: use min-length in zip-as.

John Benediktsson 2012-10-30 09:50:53 -07:00
parent 7384828e2e
commit 9698d51e5d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@ IN: assocs.extras
dup sequence? [ dup sequence? [
[ 2array ] swap 2map-as [ 2array ] swap 2map-as
] [ ] [
[ dup length ] dip new-assoc [ 2dup min-length ] dip new-assoc
[ [ set-at ] with-assoc 2each ] keep [ [ set-at ] with-assoc 2each ] keep
] if ; inline ] if ; inline