splitting.monotonic: return array from empty trends.

diff --git a/basis/splitting/monotonic/monotonic-tests.factor b/basis/splitting/monotonic/monotonic-tests.factor
index b7493b9f4f6b437623c4ccf13f80b2a12cd3ddc0..dbbd0a9040f20dc815f650ce917ecd54c7bb9db3 100644 (file)
--- a/basis/splitting/monotonic/monotonic-tests.factor
+++ b/basis/splitting/monotonic/monotonic-tests.factor
@@ -30,6 +30,8 @@ USING: tools.test math arrays kernel sequences ;
 { { { 3 3 } } }
 [ { 3 3 } [ = ] slice monotonic-slice [ >array ] map ] unit-test
 
+{ { } } [ "" trends ] unit-test
+
 {
     {
         T{ upward-slice { from 0 } { to 3 } { seq { 1 2 3 2 1 } } }

diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index a49d05d22a4907a03fd41adc1303a2e901a6690c..6e90b5638a923ab756c91a197a96df847a9740b6 100644 (file)
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -62,5 +62,5 @@ TUPLE: upward-slice < slice ;
         [ stable-slices ]
         [ upward-slices ] tri 3append [ from>> ] sort-with
     ] [
-        zero? [ ] [ [ 0 1 ] dip stable-slice boa ] if
+        zero? [ drop { } ] [ [ 0 1 ] dip stable-slice boa ] if
     ] if ;