wrap.words: make it work with empty input.

slavapestov · Sep 20, 2015 · e0bcd74 · e0bcd74
1 parent 9af266d
commit e0bcd74
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git 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
@@ -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>