sequences.extras: Fix merge-slices

2018-08-03 11:28:47 -04:00 · 2018-08-03 11:28:47 -04:00 · 46e930874a
parent 0a77f6c679
commit 46e930874a
1 changed files with 3 additions and 2 deletions
--- 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 ;