From c0b1de19192568a27e2a7939189b406b4f391360 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 23 Jun 2016 15:14:49 -0700
Subject: [PATCH] splitting: Add ?split word

---
 core/splitting/splitting.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 856c4ad5e5..f5b8fa222e 100644
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -98,6 +98,9 @@ PRIVATE>
 : split ( seq separators -- pieces )
     [ member? ] curry split-when ; inline
 
+: ?split ( seq separators -- pieces/seq )
+    split dup length 1 = [ first ] when ; inline
+
 : split-slice ( seq separators -- pieces )
     [ member? ] curry split-when-slice ; inline