From e0bcd7423b7968cee3ee975e969f3e0e7b60ea27 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 20 Sep 2015 09:44:17 -0700
Subject: [PATCH] wrap.words: make it work with empty input.

---
 basis/wrap/words/words-tests.factor | 3 +++
 basis/wrap/words/words.factor       | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/wrap/words/words-tests.factor b/basis/wrap/words/words-tests.factor
index 0d3116678e..4781a095eb 100644
--- a/basis/wrap/words/words-tests.factor
+++ b/basis/wrap/words/words-tests.factor
@@ -3,6 +3,9 @@
 USING: tools.test wrap.words sequences ;
 IN: wrap.words.tests
 
+{ { } } [ f 35 35 wrap-words ] unit-test
+{ { } } [ { } 35 35 wrap-words ] unit-test
+
 {
     {
         {
diff --git a/basis/wrap/words/words.factor b/basis/wrap/words/words.factor
index a8d87f75d5..48a73243f5 100644
--- a/basis/wrap/words/words.factor
+++ b/basis/wrap/words/words.factor
@@ -33,7 +33,7 @@ C: <wrapping-word> wrapping-word
     [ prefix ] when* ;
 
 : words>elements ( seq -- newseq )
-    split-words ?first-break make-elements ;
+    [ { } ] [ split-words ?first-break make-elements ] if-empty ;
 
 PRIVATE>