From 46e930874ad6cc6207df884d59c10ec8e4f3199b Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 3 Aug 2018 11:28:47 -0400
Subject: [PATCH] sequences.extras: Fix merge-slices

---
 extra/sequences/extras/extras.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 1153a99976..5dd33c3381 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -173,9 +173,10 @@ PRIVATE>
 ERROR: slices-don't-touch slice1 slice2 ;
 
 : merge-slices ( slice1 slice2 -- slice/* )
-    slice-order-by-from
     2dup ordered-slices-touch? [
-        [ from>> ] [ [ to>> ] [ seq>> ] bi ] bi* <slice>
+        [ [ from>> ] bi@ min ]
+        [ [ to>> ] bi@ max ]
+        [ drop seq>> ] 2tri <slice>
     ] [
         slices-don't-touch
     ] if ;