From c48149831ec7dfd03d57a5d61d643a980d90dfd6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 1 Feb 2009 20:30:54 -0600
Subject: [PATCH] interval-maps: clean up some shuffling

---
 basis/interval-maps/interval-maps.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index 4fd4592ee1..63a5740845 100644
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -43,13 +43,13 @@ PRIVATE>
     >intervals ensure-disjoint interval-map boa ;
 
 : <interval-set> ( specification -- map )
-    [ dup 2array ] map <interval-map> ;
+    dup zip <interval-map> ;
 
 :: coalesce ( alist -- specification )
     ! Only works with integer keys, because they're discrete
     ! Makes 2array keys
     [
-        alist sort-keys unclip first2 dupd roll
+        alist sort-keys unclip swap [ [ first dup ] [ second ] bi ] dip
         [| oldkey oldval key val | ! Underneath is start
             oldkey 1+ key =
             oldval val = and