From e6f30668e1290bc609ad6b99b96a6b6b08f045b2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 16 Jul 2012 07:39:03 -0700
Subject: [PATCH] splitting.monotonic: revert to previous monotonic-split
 (thanks @k7f!).

---
 basis/splitting/monotonic/monotonic-tests.factor | 1 +
 basis/splitting/monotonic/monotonic.factor       | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/splitting/monotonic/monotonic-tests.factor b/basis/splitting/monotonic/monotonic-tests.factor
index 5e1e1ce25e..77dccfb434 100644
--- a/basis/splitting/monotonic/monotonic-tests.factor
+++ b/basis/splitting/monotonic/monotonic-tests.factor
@@ -1,6 +1,7 @@
 IN: splitting.monotonic
 USING: tools.test math arrays kernel sequences ;
 
+{ { } } [ { } [ < ] monotonic-split ] unit-test
 [ { { 1 } { -1 5 } { 2 4 } } ]
 [ { 1 -1 5 2 4 } [ < ] monotonic-split [ >array ] map ] unit-test
 [ { { 1 1 1 1 } { 2 2 } { 3 } { 4 } { 5 } { 6 6 6 } } ]
diff --git a/basis/splitting/monotonic/monotonic.factor b/basis/splitting/monotonic/monotonic.factor
index 68aa6b6815..2e37b1d279 100644
--- a/basis/splitting/monotonic/monotonic.factor
+++ b/basis/splitting/monotonic/monotonic.factor
@@ -20,7 +20,7 @@ IN: splitting.monotonic
 PRIVATE>
 
 : monotonic-split ( seq quot: ( obj1 obj2 -- ? ) -- newseq )
-    [ drop { } ] [ (monotonic-split) ] if-empty ; inline
+    over empty? [ 2drop { } ] [ (monotonic-split) ] if ; inline
 
 <PRIVATE