From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 30 Oct 2012 16:50:53 +0000 (-0700)
Subject: assocs.extras: use min-length in zip-as.
X-Git-Tag: 0.97~2132
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=688f088fafbb5ab7a81994aed36dfd36e435181b

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

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 2c7f61cd56..1af224c697 100644
--- 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