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

2012-10-30 09:50:53 -07:00 · 2012-10-30 09:50:53 -07:00 · 688f088faf
parent 4bdb40574a
commit 688f088faf
1 changed files with 1 additions and 1 deletions
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@ -17,7 +17,7 @@ IN: assocs.extras
    dup sequence? [
        [ 2array ] swap 2map-as
    ] [
-        [ dup length ] dip new-assoc
+        [ 2dup min-length ] dip new-assoc
        [ [ set-at ] with-assoc 2each ] keep
    ] if ; inline