wrap.words: make it work with empty input.

2015-09-20 09:44:17 -07:00 · 2015-09-20 09:44:17 -07:00 · e0bcd7423b
parent 9af266df62
commit e0bcd7423b
2 changed files with 4 additions and 1 deletions
--- 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
+
 {
    {
        {
--- 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>