steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

wrap.words: make it work with empty input.

db4
John Benediktsson 2015-09-20 09:44:17 -07:00
parent 9af266df62
commit e0bcd7423b
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/wrap/words/words-tests.factor
View File

@ -3,6 +3,9 @@
USING: tools.test wrap.words sequences ; USING: tools.test wrap.words sequences ;
IN: wrap.words.tests IN: wrap.words.tests
{ { } } [ f 35 35 wrap-words ] unit-test
{ { } } [ { } 35 35 wrap-words ] unit-test
{ {
{ {
{ {

2
basis/wrap/words/words.factor
View File

@ -33,7 +33,7 @@ C: <wrapping-word> wrapping-word
[ prefix ] when* ; [ prefix ] when* ;
: words>elements ( seq -- newseq ) : words>elements ( seq -- newseq )
split-words ?first-break make-elements ; [ { } ] [ split-words ?first-break make-elements ] if-empty ;
PRIVATE> PRIVATE>