From 22625469bc0ba6fe14faf1787edb23e636ca5f6a Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Fri, 14 May 2010 13:29:37 -0700
Subject: [PATCH] sequences.cords: specialize vshuffle-elements to use
 vshuffle2-elements on cord components

---
 basis/sequences/cords/cords.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/basis/sequences/cords/cords.factor b/basis/sequences/cords/cords.factor
index 36f8db4ba8..5be500abd4 100644
--- a/basis/sequences/cords/cords.factor
+++ b/basis/sequences/cords/cords.factor
@@ -58,6 +58,11 @@ M: T cord-append
     [ [ [ head>> ] bi@ ] dip call ]
     [ [ [ tail>> ] bi@ ] dip call ] 3bi ; inline
 
+<PRIVATE
+: split-shuffle ( shuf -- sh uf )
+    dup length 2 /i cut* ; foldable
+PRIVATE>
+
 M: cord v+                [ v+                ] cord-2map ; inline
 M: cord v-                [ v-                ] cord-2map ; inline
 M: cord vneg              [ vneg              ] cord-map  ; inline
@@ -96,6 +101,9 @@ M: cord vunordered?       [ vunordered?       ] cord-2map ; inline
 M: cord vany?             [ vany?             ] cord-both or  ; inline
 M: cord vall?             [ vall?             ] cord-both and ; inline
 M: cord vnone?            [ vnone?            ] cord-both and ; inline
+M: cord vshuffle-elements 
+    [ [ head>> ] [ tail>> ] bi ] [ split-shuffle ] bi*
+    [ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline
 
 M: cord n+v [ n+v ] with cord-map ; inline
 M: cord n-v [ n-v ] with cord-map ; inline