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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 2c7f61cd565bb7a7b38aebbc0f12da6a7f5323b4..1af224c697bbb69309f5745a10645aef4a8fdd2c 100644 (file)
--- 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